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ABSTRACT 

The Knowledge-Based Editor in Emacs (KBEmacs) is the current demonstration system 
implemented as part of the Programmer's Apprentice project. KBEmacs is capable of acting 
as a semi-expert assistant to a person who is writing a program — taking over some parts of 
the programming task. Using KBEmacs, it is possible to construct a program by issuing a 
series of high level commands. This series of commands can be as much as an order of 
magnitude shorter titan the ptogram it describes. 

KBEmacs is capable of operating on Ada and Lisp programs of realistic size and 
complexity. Although KBEmacs is neither fast enough nor robust enough to be considered a 
true prototype, both of these problems could be overcome if the system were to be 
rcimplemented. 
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I ■ Introduction 


The long term goal of the Programmer’s Apprentice project is to develop a theory of programming 
(i.c., how expert programmers understand, design, implement, test, verify, modify, and document programs) 
and to automate the programming process. Recognizing that fully automatic programming is very far off, the 
current research is directed toward the intermediate goal of developing an intelligent computer assistant for 
programmers called the Programmer’s Apprentice (PA). The intention is for the PA to act as a junior partner 
and critic, keeping track of details and assisting with the easy parts of the programming process while the 
programmer focuses on the hard parts of die process. 

The Knowledge-Based Editor in Emacs (KBHmacs) is the current demonstration system implemented as 
part of the PA project. KBHmacs foils short of the PA because it focuses only on the task of program 
construction and because the depth of its understanding of a program is quite limited. However, KBHmacs 
demonstrates several of the capabilities of the PA and is a useful tool in its own right. The principal benefit of 
KBHmacs is that it makes it possible to construct a program rapidly and reliably by combining algorithmic 
fragments stored in a library. 

Goals of the PA Project 

The PA project is pursuing two goals in parallel. On the one hand, the project uses programming as a 
domain in which to investigate human problem solving behavior. On the other hand, the project seeks to 
improve programmer productivity by developing programming tools based on AI techniques. 

Dramatic improvements in programmer productivity have been frustratingly hard to achieve. One reason 
for this is that programming is a complex task which consists of a variety of subtasks (e.g., requirements 
analysis, design, implementation, testing, and maintenance). Since each of these subtasks is a significant part 
of the process as a whole, it is impossible to get a dramatic increase in productivity without addressing at least 
most of these subtasks. 

Hooking back over the history of programming, only one development stands out as truly dramatic — the 
introduction of high level languages. High level languages have had a positive impact on almost every phase 
of the programming process by representing programs in a more concise and understandable way. They do 
this by delegating a variety of low level programming decisions (e.g. register allocation) to a compiler. 

Using Al techniques, it may soon be possible to get a second dramatic improvement in programmer 
productivity by developing programming tools which can automatically perform middle level programming 
decisions (e.g., data structure selection). Al techniques make it possible to represent a great deal of 
knowledge about programming in general and then use this knowledge to understand particular programs. 
As has been demonstrated in other areas where Al techniques have been applied, this approach opens the 
door to intelligent behavior. 

Although AI techniques hold considerable promise as the basis for advanced programming tools, a great 
deal more work has to be done. The PA project seeks both to develop the additional techniques which will be 
needed and to build demonstration systems which illustrate the potential for Al-bascd tools. 
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Introduction 


History of the Programmer's Apprentice Project 

Figure 1 shows how KBHmacs fits into the PA project as a whole. The project consists of two principal 
lines of research: foundation.', and demonstrations. The first line seeks to develop new representation and 
reasoning techniques which can serve as the foundation for the PA. The second line of research seeks to 
construct demonstration systems based on these techniques and to experiment with how the PA might assist a 
programmer. 

Besides laying out the basic concept of the PA, the most important contribution of the initial phase of the 
PA project (up to 1976) was die design of the plan formalism for representing knowledge about particular 
programs and about programming in general (see [Rich & Shrobc 76,78] and [Waters 76]). The plan 
formalism serves as die "mental language" of KBHmacs. 



Figure 1: History of the Programmer's Apprentice project. 

The first demonstration system constructed as part of the PA project was die Knowledge-Based Editor 
(KBH). KBH (sec [Waters 82a]) was a program editor which made it possible to operate directly on the 
algorithmic structure of a program radicr than on its textual or syntactic structure. l ake KBHmacs, die power 
of KBH came principally from die ability to construct a program out of algorithmic fragments. 

The topic of this report is KBHmacs, die second demonstration system. As the name Knowledge-Based 
Editor in Emacs is intended to imply, the most obvious difference between KBHmacs and KBH is diat 
KBHmacs is tightly integrated with a standard Emacs-stylc [Stallman 81] program editor. The integration 
makes it possible for the programmer to freely intermix knowledge-based program editing with text-based 
and syntax-based program editing. As discussed in Chapter IV, KBHmacs extends KBH in a number of other 
ways, coming a step closer to the PA. In particular, it increases die range of algoridimic fragments which can 
be manipulated; it allows a programmer to define new fragments; it supports the language Ada in addition to 
Lisp; and it can assist in the construction of program documentation. 
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During the implementation of Kill-] and then KBEmacs, work has continued in parallel on the 
fundamental underpinnings of the PA. The central part of this work has been the refinement and extension 
of the plan formalism. This has resulted in the development of the plan calculus\\Uch 80,81] which extends 
the plan formalism by providing a firmer semantic basis and by increasing the range of information about 
programs and programming which can be represented. Work has also proceeded on the development of 
general purpose automated deduction methods which are appropriate for use in the domain of plans 
(see [Shrobc 79] and [Rich 82,85]). 

There has been a significant amount of interaction between the work on foundations and the work on 
demonstrations. Several of the improvements in plans have been incorporated into demonstration systems 
and experience with the demonstration systems has motivated several of the improvements in plans. 
However, as highlighted by Figure 1, the two lines of research have been largely separate. In particular, the 
magnitude of the implementation required has forced there to be a large delay between the time when new 
fundamental concepts arc developed and Lhc time when they arc incorporated into a demonstration system. 
Implementation has already begun on a new demonstration system which will incorporate all of the 
fundamental ideas developed to date. 

Outline of This Report 

'Hiis report focuses almost exclusively on KBEmacs. Other parts of the PA project are mentioned only 
when they arc essential forgiving a full understanding of KBEmacs. As a result, this report is not intended to 
be a summary of the project as a whole. 

The heart of this report is a pair of scenarios showing KBEmacs in action. Chapter II shows the system 
being used to construct I.isp programs. Chapter III shows the system being used to construct Ada programs. 
The scenarios show the output of an actual running system. However, as will be discussed below, there are 
several reasons why the current system is merely a demonstration system and cannot be considered to be a 
true prototype. Given this, the scenarios are perhaps best looked at as a set of requirements for aspects of the 
PA. 

Chapter IV evaluates KBEmacs from three points of view: as a stand alone programming tool, as a step 
tow r ard the PA, and in relation to other, similar programming tools. Chapter V explains how KBEmacs is 
implemented. Chapter VI discusses the future directions of die PA project. The remainder of this chapter 
presents a brief example of using KBEmacs, discusses die basic AI concepts behind die system, and then 
summarizes die capabilities of the system. 
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An Example of Using KBEmacs 

In order lo give a feeling for the program construction capabilities of KBEmacs. this section presents a 
condensed excerpt from the scenario in Chapter III. In that chapter a programmer uses KBEmacs to 
implement several Ada [Ada 83] programs in the domain of business data processing. It is assumed that there 
is a data base which contains information about various machines (referred to as units) sold by a company and 
about the repairs performed on each of these units. In die middle of Chapter III the programmer constructs a 
program called UNI T_REPAIR_REPORT which prints out a report of all of the repairs performed on a given 
unit. The following directions might be given to a human assistant who was asked to write this program. 

Define a simple report program UNIT_REPAIR_REPORT. Enumerate the chain of 
repairs associated with a unit record, printing each one. Query the user for 
the key (UN IT_KEY) of the unit record to start from. Print the title 
("Report of Repairs on Unit " & UNIT_KEY). Do not print a summary. 

A key feature of these directions is that they refer to a significant amount of knowledge that the assistant is 
assumed to possess. First, they refer to a number of standard programming algorithms — i.c., "simple 
report”, "enumerating the records in a chain", "querying the user for a key". Second, they assume that the 
assistant understands the structure of the data base of units and repairs. Another feature of the directions is 
that, given that the assistant has a precise understanding of the algorithms to be used and of the data base, 
little is left to the assistant’s imagination. Hsscntially every detail of die algoridim is spelled out, including die 
exact Ada code to use when printing the title. 

As discussed in Chapter III, the following set of commands can be used to construct the program 
UNIT_REPAIR_REP0RT using KBEmacs. The Ada program which results from these commands is shown on 
the next page. 

Define a simple_report procedure UNIT_REPAIR_REPORT. 

Fill the enumerator with a chain_enumeration of UNITS and REPAIRS. 

Fill the main_fi1e_key with a query_user_for_key of UNITS. 

Fill the title with ("Report of Repairs on Unit " & UNIT_KEY). 

Remove the summary. 

A key feature of dicse commands is diat they refer to a number of standard algorithms known to 
KBEmacs — i.c., "simplc_rcport", ”chain_cnumcration", and "qucry_user_for_key". In addition, they 
assume an understanding of the structure of the data base. Each of the "F i 11 " commands specifies how to fill 
in a part of die simple_rcport algorithm. 

Without discussing eidicr the commands or the program produced in any detail, two important 
observations can be made. First, die commands used arc very similar to the hypothetical directions for a 
human assistant. Second, a set of 5 commands produces a 56 line program. (The program would be even 
longer if it did not make extensive use of data declarations and functions defined in die packages FUNCTIONS 
and MAINTENANCE_FILES.) 

'flic KBEmacs commands and die hypothetical directions differ in grammatical form, but not in semantic 
content. This is not surprising in light of die fact that the hypothesized commands were in actuality created 
by restating the knowledge-based commands in more free flowing English. 

The purpose of this translation was to demonstrate tiiat although the KBEmacs commands may be 
syntactically awkward, they arc not semantically awkward. The commands are neither redundant nor overly 
detailed. They specify only die basic design decisions which undcrly the program. There is no reason to 
believe that any automatic system (or for that matter a person) could be told how to implement die program 
UNI T_REPAIR_RE PORT without being told at least most of the information in the commands shown. 
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with CALENDAR, FUNCTIONS, MAINTENANCE_FILES, TEXT_I0; 
use CALENDAR, FUNCTIONS. MAINTENANCE_FILES, TEXT_I0; 
procedure UNIT_REPAIR_REPORT is 

use DEFECT_I0, REPAIR_I0, UNIT_I0, INT_I0; 

CURRENT.DATE: constant STRING := FORMAT_DATE(CLOCK); 

DEFECT: DEFECT_TYPE; 

REPAIR: REPAIR_TYPE; 

REPAIR_INDEX: REPAIR_INDEX_TYPE; 

REPORT: TEXT_I0.FILE_TYPE; 

TITLE: STRING(1..33); 

UNIT: UNIT_TYPE; 

UNIT_KEY: UNIT_KEY_TYPE; 
procedure CLEAN_UP is 
begin 

SET_OUTPUT(STANDARD_OUTPUT); 

CLOSE(DEFECTS); CLOSE(REPAIRS); CLOSE(UNITS); CLOSE(REPORT); 
exception 

when STATUS_ERROR => return; 
end CLEAN_UP; 

begin 

OPEN(DEFECTS, IN_FILE, DEFECTS.NAME); OPEN(REPAIRS, IN_FILE, REPAIRS_NAME); 

OPEN(UNITS, IN_FILE, UNITS_NAME); CREATE(REPORT, 0UT_FILE, ”report. txt"); 

loop 

begin 

NEW_LINE; PUT("Enter UNIT Key: "); GET(UNIT_KEY); 

READ(UNITS, UNIT, UNIT_KEY); 
exit; 
exception 

when END_ERR0R => PUT("Invalid UNIT Key"); NEW_LINE; 
end; 

end loop: 

TITLE := "Report of Repairs on Unit " & UNIT_KEY; 

SET_OUTPUT(REPORT); 

NEW_LINE(4); SET_COL(20); PUT(CURRENT_DATE); 

NEW_LINE(2); SET_C0L(13); PUT(TITLE); NEW_LINE(60); 

RFAD(UNITS, UNIT, UNIT_KEY); 

REPAIR_INDEX := UNIT.REPAIR; 
while not NULL_INDEX(REPAIR_INDEX) loop 
READ(REPAIRS, REPAIR, REPAIR_INDEX); 
if LINE > 64 then 

NEW_PAGE; NEW_LINE; PUT("Page: "); PUT(lNTEGER(PAGE-l), 3); 

SET_COL(13); PUT(TITLE); SET_COL(61); PUT(CURRENT_DATE); NEW_LINE(2); 
PUT(" Date Defect Description/Comment"); NEW_LINE(2); 
end if; 

READ(DEFECTS, DEFECT, REPAIR.DEFECT); 

PUT(FORMAT_DATE(REPAIR,DATE)); SET_C0L(13); PUT(REPAIR.DEFECT); 

SET_C0L(20); PUT(DEFECT.NAME); NEW_LINE; 

SET_COL(22); PUT(REPAIR.COMMENT); NEW_LINE; 

REPAIR_INDEX := REPAIR.NEXT; 
end loop; 

CLEAN_UP; 
exception 

when DEVICE_ERROR | END_ERR0R | NAMF._ERROR | STATUS_ERROR => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end UNIT_REPAIR_REPORT; 
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The leverage that KBEmacs applies to the program construction task is illustrated by the order of 
magnitude difference between the size of the set of commands and the size of the program. A given 
programmer seems to be able to produce more or less a constant number of lines of code per day independent 
of the programming language being used. As a result, there is reason to believe that the order of magnitude 
size reduction provided by the KBKmacs commands would translate into an order of magnitude reduction in 
the time required to construct the program. It should be noted that since program construction is only a small 
part (around 10 percent) of the programming life cycle, this docs not translate into an order of magnitude 
savings in the life cycle as a whole. 

Another important advantage of KBHmacs is that using cliches enhances the reliability of the programs 
produced. Since cliches arc intended to be used many times, it is economically justifiable to lavish a great 
deal of time on them in order to ensure that they arc general purpose and bug free. This reliability is 
inherited by the programs which use the cliches. When using an ordinary program editor, programmers 
typically make two kinds of errors: picking the wrong algorithms to use and incorrectly instantiating these 
algorithms (i.e., combining the algorithms together and rendering them as appropriate program code). 
KBHmacs eliminates the second kind of error. 

Key AI Ideas Underlying KBEmacs 

Three basic AI ideas — the assistant approach, cliches, and plans — underlie the PA project as a whole 
and KBEmacs in particular. These ideas define the approach taken and are the basis for the capabilities of the 
system. A fourth idea — general purpose automated deduction — is an important aspect of the project as a 
whole, but is not used by KBEmacs. 

The Assistant Approach 

When it is not possible to construct, a fully automatic system for a task, it is ncveithciess olten possible to 
construct a system which can assist an expert in the task. In addition to being pragmatically useful, the 
assistant approach can lead to important insights into how to construct a fully automatic system. 

Figure 2 shows a programmer and an assistant interacting with a programming environment. 1 hough 
presumably less knowledgeable, the assistant interacts with the tools in tire cnviionmcnt (e.g., editors, 
compilers, debuggers) in the same way as the programmer and is capable of helping the programmer do what 
needs to be done. It is assumed that the programmer will not be able to delegate all of the work which needs 
to be done to the assistant and therefore will have to interact with the programming environment directly 
from time to time in order to do things which the assistant is not capable of doing. 

The key issue in using an assistant effectively is division of labor. Since the programmer is more capable, 
the programmer will have to make the hard decisions about what should be done and what algorithms should 
be used. However, much of programming is quite mundane and can easily be done by an assistant. Hie key 
to cooperation between the programmer and the assistant is effective two-way communication whose key 
in turn is shared knowledge. It would be impossibly tedious for the programmer to explain each decision to 
the assistant from first principles. Rather, the programmer needs to be able to rely on a body of 
intermediate-level shared knowledge in order to communicate decisions easily. 

The discussion in tire last two paragraphs applies equally well to human assistants and automated 
assistants. KBHmacs is intended to interact with a programmer in the same way that a human assistant might. 
The long range goal of the PA is to create a "chief programmer team" wherein the programmer is the chief 
and the PA is the team. 
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Figure 2: A programming assistant. 

An important benefit of the assistant approach is that it is non-intrusivc in nature. The assistant is 
available for the programmer to use, but the programmer is not forced to use it. Note that this contrasts 
sharply, for example, with program generators which completely take over large parts of the programming 
task and do not allow die programmer to have any control over diem. A key goal of KBHmacs is to provide 
assistance to die programmer without preventing die programmer from doing simple diings in die ordinary 
way. The intent is for the programmer to use standard programming tools whenever that makes things easy 
and to use KBHmacs only when doing so delivers real benefits. 

A key part of die assistant approach as described above is die assumption that die assistant is significantly 
less knowledgeable than the programmer. There are situations where one might want an assistant system 
which was more knowledgeable than the programmer (e.g., a system which assists end users or neophyte 
programmers). However, KBHmacs does not attack these kinds of problems. The goal of KBHmacs is to 
make expert programmers super-productive rather than to make bad programmers good. 
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Cliches 

The term cliche is used in this report to refer to a standard method for dealing with a task — a lemma or 
partial solution. In normal usage, die word cliche has a pejorative sound which connotes overuse and lack of 
creativity. However, it is not practical to be creative all of die time. For example, when implementing a 
program, it is usually better to construct a reasonable program rapidly, than to constmct a perfect program 
slowly. 

A cliche consists of a set of roles embedded in an underlying matrix. The roles represent parts of the 
cliche which vary from one use of the cliche to the next but which have well defined purposes. The matrix 
specifics how die roles interact in order to achieve the goal of the cliche as a whole. 

As an example of a cliche in the domain of programming, consider searching a one dimensional structure. 
One way to do diis is to use die cliche sequential-search. '1'liis cliche enumerates the elements of a structure 
one at a time, tests each element to see if it satisfies the goal of die search, and returns the first element which 
passes the test. If no element passes the test, dicn a special value signifying die failure of die search is 
returned. 

The cliche sequential-search has three roles: die structure to be searched, the enumerator to use when 
searching die structure, and the test which defines die goal of the search. 1 he matrix of die cliche specifies 
several different kinds of information. First, it specifies pieces of fixed computation which do not vary form 
one use of the cliche to the next. A simple example of diis is the special value signifying failure in die cliche 
sequential-search. Most cliches have fixed computation which is more complex than mere constants. 

Second, the matrix specifics the control flow and data flow which connect the roles with each other and 
with the fixed computation. For example, data flow connects die output of die enumerator with the input of 
the test and control flow specifics that the first time the test succeeds, die search should be terminated. Third, 
the matrix specifics various constraints on the roles (e.g., the constraint diat the enumerator must be 
compatible with die data type of the structure to be searched). 

When a cliche is used, it is instantiated by filling in the roles with computations which arc appropriate to 
the task at hand. This creates an instance of the cliche which is specialized to the task. For example, in order 
to use the cliche sequential-search to find die first negative element of a vector of integers, the vector would 
be used as die structure to be searched, the enumerator would be filled with computation which enumerates a 
vector, and the test would be filled with a test for negativity. 

Given a particular domain, cliches provide a vocabulary of relevant intermediate and high level concepts. 
Having such a vocabulary is essential for effective reasoning and communication in die context of die domain. 
It is important to note that this is just as important for human diought as it is for machine-based thought. 

Both men and machines are limited in the complexity of the lines of reasoning they can develop and 
understand. In order to deal with more complex lines of reasoning, intermediate level vocabulary must be 
introduced which summarizes parts of the line of reasoning. Once this intermediate vocabulary is fully 
understood, it can be used to express the Hill line of reasoning in a sufficiently straightforward way. 

Men and machines are similarly limited in the complexity of the descriptions dicy can communicate. Just 
as it is in general never practical to reason about something from first principles, it is in general never practical 
to describe something in full detail from first principles. Rffcctivc communication depends on die shared 
knowledge of an appropriate vocabulary between speaker and hearer. 
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An essential part of the cliche concept is reuse. Once something has been thought out (or communicated) 
and given a name, then it can be reused as a component in future thinking (communication). 1 here is an 
overhead in that something must be thought out very carefully in order for it to serve as a truly reusable 
component. However, if successful, this effort can be amortized over many instances of reuse. 

A corollary of the cliche idea is that a library of cliches is often the most important part of an AI system. 
In KBHmacs, a large portion of the knowledge which is shared between man and machine is in die form of a 
library of algorithmic cliches. Tins library can be viewed as being a machine understandable definition of the 
vocabulary programmers use when talking about programs. 

Plans 

Selecting an appropriate knowledge representation is the key to applying AI to any task. As a practical 
matter, the only way to perform a complex (as opposed to merely large) operation is to find a knowledge 
representation in which the operation can be performed in a relatively straightforward way. lo this end, 
many AI systems make use of the idea of a plan — a representation which is abstract in that it deliberately 
ignores some aspects of a problem in order to make it easier to reason about the remaining aspects of the 
problem. 

To be useful, a knowledge representation must express all of the information relevant to the problem at 
hand. The plan formalism used by KBHmacs is designed to represent two basic kinds of information: the 
structure of particular programs and knowledge about cliches. The structure of a program is expressed 
essentially as a flow chart where data flow as well as control flow is represented by explicit arcs. In order to 
represent cliches, added support is provided for representing roles and constraints. 

Equally important, a knowledge representation must facilitate the operations to be performed. The two 
key operations performed by KBEmacs are simple reasoning about programs (c.g., determining the source of 
a data flow) and combining cliches together to create programs. 1 he plan formalism is specifically designed 
to support these operations. For example, die fact that data flow is expressed by explicit arcs makes it easy to 
determine die source of a given data flow. 
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The Plan Formalism 

The following briefly summarizes the plan formalism used by KBKmacs. Chapter V discusses the 
formalism in more detail. A plan is like a hierarchical flow chart wherein both the control flow and data flow 
arc represented by explicit arcs. Figure 3 shows a diagram of a simple example plan — the plan for the cliche 
absolute-value. 



RESULT 


Figure 3: A plan for die cliche absolute-value. 

The basic unit of a plan is a segment (drawn as a box in a plan diagram). A segment corresponds to a unit 
of computation. It has a number of input ports and output ports which specify the input values it receives and 
the output values it produces. It has a name which indicates the operation performed. A segment can either 
correspond to a primitive computation (c.g. the segment or contain a subplan which describes the 
computation performed by the segment (c.g. the segment ABS). All of the computation corresponding to a 
single program or cliche is grouped together into one outermost segment. The roles of a cliche are 
represented as specially marked segments (c.g., the segment NUMBER). 
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As in a flow chart, control flow from one segment to another is represented by an explicit arc from the first 
segment to die second (drawn as a dashed arrow). Similarly, data flow is represented by an explicit arc from 
the appropriate output port of the source segment to die appropriate input port of the destination segment 
(drawn as a solid arrow). It should be noted that like a data flow diagram, and unlike an ordinary flowchart, 
data flow is the dominant concept in a plan. Control flow arcs are only used where dicy arc absolutely 
necessary. In Figure 3, control flow arcs arc necessary in order to specify that the operation is performed 
only when the input number is less than zero. 

A key feature of the plan formalism is diat it abstracts away from die syntactic features of programming 
languages and represents die semantic features of a program directly. Whenever possible, it eliminates 
features which stem from the way diings must be expressed in a particular programming language, keeping 
only those features which arc essential to the actual algorithm. For example, a plan docs not represent data 
flow in terms of the way it could be implemented in any particular programming language — c.g. with 
variables, or nesting of expressions, or parameter passing. Rather, it just records what die net data flow is. 
Similarly, no information is represented about how control flow is implemented. 

Abstracting away from the syntactic features of a program has several advantages. One advantage is diat it 
makes the internal operations of KBHmacs substantially programming language independent. Another 
advantage is diat plans arc much more canonical dian program text. Programs (even in different languages) 
which differ only in the way dicir data flow and control flow is implemented correspond to the same plan. 

A second important feature of the plan formalism is that it tries to make information as local as possible. 
For example, each data flow arc represents a specific communication of data from one place to another and, 
by die definition of what a data flow arc is, die other data flow arcs in die plan cannot have any effect on this. 
The same is true for control flow arcs. This locality makes it possible to determine what the data flow or 
control flow is in a particular situation by simply querying a small local portion of the plan. 

The key benefit of the locality of data flow and control flow is diat it gives plans the property of additivity. 
It is always permissible to put two plans side by side without their being any interference between them. 1 his 
makes it easy for KBHmacs to create a program by combining the plans for cliches. All KBHmacs has to do is 
merely paste the pieces together. It docs not have to worry about issues like variable name conflicts, because 
diere are no variables. 

A diird important feature of plans is that the intermediate segmentation breaks a plan up into regions 
which can be manipulated separately. In order to ensure dais separability, the plan formalism is designed so 
diat nothing outside of a segment can depend on anything inside of that segment. For example, all of the data 
flow between segments outside of an intermediate segment and segments inside of an intermediate segment is 
channeled through input and output ports attached to die intermediate segment. As a result of this and other 
restrictions, when modifying the plan inside of a segment one can be secure in die knowledge that diese 
changes cannot effect any of the plan outside of the segment. 
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Representing Loops 

A final interesting aspect of plans is that loops arc represented in a way which increases locality. Rather 
than representing loops by means of cycles in data flow and control flow, the plan is represented as a 
composition of computations applied to series of values (sec [Waters 79]). For example. Figure 4 shows a plan 
for summing up the positive elements of a vector. It is composed of three subsegments. 1 he first enumerates 
die elements in the input vector creating a scries (or stream) of values. I’he second selects the positive 
elements of this series. The third sums up the selected values. 



RESULT 

Figure 4: A plan for summing up the positive elements of a vector. 


Representing a loop as a composition of computations on series has two important advantages. F'irst, it 
increases locality. For example, it makes it possible to modify one of the computations without disturbing the 
others (c.g., the vector enumeration could be replaced by a list enumeration). Second, it highlights the 
similarity between related loops. For example, it makes explicit die feet that exactly the same summation 
cliche is used in a program which sums the positive elements of a vector as in a program which sums the 
lengths of a list of queues. 

Representation Shift 

One of the most powerful ideas underlying AI systems is the idea of a representation shift — shifting from 
a representation where a problem is easy to state but hard to solve to a representation which may be less 
obvious but in which die problem is easy to solve. Much of the power of KBEmacs is derived more or less 
directly from die representation shift from program text to the plan formalism. 

From the point of view of a programmer using KBFmacs, Both the assistant approach and cliches are 
obvious features of die system. In contrast, plans are used only internally. KBFmacs goes to considerable 
lengths to make it appear to the user as if KBFmacs used program text (extended to support die notion of 
roles) as its only knowledge representation. In fact. Chapters II & III will make no mention of plans. The 
entire operation of KBFmacs will be presented from a purely textual point of view. 
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Overview of KBEmacs 

As mentioned above, KBEmacs is the current demonstration system implemented as part of the PA 
project. It is implemented on the Symbolics Lisp Machine [Lisp 84] and is a restricted version of the PA in 
that it focuses primarily on die task of program construction. However, it illustrates a number of the 
capabilities which the PA is expected to possess. 

Architecture 

Figure 5 shows the architecture of the KBEmacs system. As discussed in Chapter V, KBEmacs maintains 
two representations for die program being worked on: program text and a plan. At any moment, the 
programmer can eidicr modify the text or die plan. If the text is modified, then the analyzer module is used 
to create a new plan. If the plan is modified, die coder module is used to create new program text. 

To modify the program text, the programmer can use die standard Emacs-stylc Lisp Machine program 
editor. This editor supports both text-based and syntax-based program editing. To modify die plan, the 
programmer can use the knowledge-based editor implemented as part of KBEmacs. This editor supports a set 
of knowledge-based commands which arc phrased in a simple pseudo-English command language. 



Figure 5: Architecture of KBEmacs. 

An interface unifies ordinary program editing and knowledge-based editing so that diey can both be 
conveniently accessed through the standard Lisp Machine editor. The knowledge-based commands arc 
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supported as an extension of the standard editor command set and die results of these commands are 
communicated to the programmer by altering the program text in the editor buffer. The effect is the same as 
if a human assistant were sitting at the editor modifying the text under die direction of the programmer. 

The major value of KBEmacs stems from the fact that it has a knowledge base of algorithmic cliches (the 
cliche library) and a significant amount of knowledge (proccdurally embedded in die knowledge-based 
editor) about how to combine diem. As seen in the example at the beginning of this chapter, a user can build 
up a program rapidly and reliably by selecting various algorithms to use and delegating to the system the task 
of combining them together to construct a program. However, the system is non-invasivc because die user 
can fall back on ordinary program editing at any time. 

As will be seen in die scenarios in die next two chapters, KBEmacs is a real running system which can 
operate on programs of realistic size and complexity. However, KBEmacs has dirce pragmatic limitations 
which render it usable only as a demonstration system rather than as a true prototype. Eirst, it is too slow. 
Knowledge-based commands can take as long as five minutes to execute. In order for KBEmacs to be truly 
convenient to use, diis time would have to be reduced to only a few seconds. Second, the system has evolved 
over a number of years in a very untidy fashion and is frill of bugs. Pilot studies have indicated that both of 
these problems could be fixed by rewriting die system, but this would not be a simple task. 'Third, KBEanacs 
has an understanding of only a few dozen cliches. These are sufficient to support the scenarios shown in this 
report. However, a practical tool would have to have an understanding of hundreds if not thousands of 
cliches. Again, there is no fundamental reason why die appropriate cliches could not be entered into the 
system, but it would be a significantly difficult task. 
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Capabilities 

As will be discussed at length in Chapters II & III, KBBmacs has many capabilities only one of which 
(rapid program construction in terms of cliches) is illustrated above. As discussed in Chaptci IV, these 
capabilities can be divided into two classes: strongly demonstrated and weakly demonstrated. 1 he following 
capabilities are strongly demonstrated in that they arc supported in a general way, and little, if any, additional 
research would be needed before a full scale prototype system exhibiting diesc capabilities could be built. 

Rapid program construction in terms of cliches — I he programmer can construct programs quickly 
and reliably by combining cliches from KBBmacs’ library of cliches. 

User definition of cliches — The programmer can define new cliches as easily as he can define new 
subroutines. 

Editing in terms of algorithmic structure — The programmer can operate on a program by using 
knowledge-based commands which refer to the logical staicture ot the algorithms being used. 

Escape to the surrounding environment — While using KBBmacs die programmer is not pievented 
from using any of the standard programming tools. In particular, he can freely intermix text editing 
and knowledge-based editing. 

Substantial programming language independence — The scenarios below show KBBmacs being used to 
operate on both Lisp and Ada programs. 

The following capabilities are only weakly demonstrated. The weakness comes from the fact that the 
capabilities arc not supported in a general way. Rather, only certain restricted aspects of each capability are 
supported in order to show what the capability would be like and to demonstrate that die PA appioach has 
leverage on die capability. 

A library of cliches — KBBmacs contains a very simple library of several dozen Lisp and Ada cliches. 

Reasoning by means of constraints —KBBmacs uses simple constraint propagation in order to 
determine some of the consequences of the programmer’s design decisions. 

Taking care of details— KBBmacs is able to automatically take care of some kinds of programming 
details. For example, it can generate most of die variable declarations in an Ada program. 

Program Modification — KBBmacs supports several commands which make it easier to modify a 
program. B or example, it makes it easy to change the way die role of a cliche is filled in. 

Program Documentation — KBBmacs is able to create a simple comment describing a program. 
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Future Directions 

As discussed in detail in Chapter VI, work in die FA project is proceeding in several directions. The 
largest amount of effort is going into the construction of die next demonstration system. Kxtcrnally, this 
system will appear to die user to be very similar to KBKmacs. It will use die same interface and support the 
same basic capabilities. However, internally it will be very different form KBKmacs. It will be based on the 
plan calculus [Rich 80,81] as opposed to the simpler plan formalism used by KBKmacs. In addition, die 
reasoning performed by the new system will be supported by a general purpose reasoning system [Rich 82,85] 
tailored to support the plan calculus, radicr dian by special purpose procedures. A primary goal of the new 
system will be to strongly demonstrate the capabilities which arc only weakly demonstrated by KBKmacs. 
Another goal is to extend the capabilities of die system into die area of bug detection and automatic algorithm 
selection. 

Another area of activity centers around various applications of the ideas behind KBKmacs. A particularly 
interesting application is die Tempest editor implemented by Sterpe [Sterpe 85]. This editor is inspired by 
KBKmacs as a whole. It has a user extendable library of cliches (called templates) and makes it easy to 
combine these templates together. The key difference between Tempest and KBKmacs is that Tempest is 
purely text based. This greatly reduces die power of the system. However, it vastly simplifies the system and 
reduces die amount of computation which has to be performed by three or four orders of 
magnitude — Tempest runs with acceptable speed on an IBM PC. 

Another application is the Lisp macro described in [Waters 83a]. 'This macro is inspired by the way loops 
are represented in die plan formalism. The macro makes it possible to represent computations as 
compositions of functions on series of values and uses some of the same algoridims which are used by the 
coder module of KBKmacs in order to compile die computations into efficient iterative loops. 

A final aim of die PA project is to expand die scope of die research beyond program implementation. 
Initial work has begun on the design of a Requirements Analyst’s Apprentice. 'The intention is to focus on the 
opposite end of the programming process from program implementation and apply die basic ideas of die 
assistant approach, cliches, plans, and general purpose automated deduction to die task of acquiring and 
modifying requirements. 

Once a system has been constructed which captures requirements in a machine understandable form it 
should be possible to construct a system which bridges the gap between requirements analysis and 
implementation by supporting die process of program design. Eventually it should be possible to build a true 
Programmer’s Apprentice which can assist in all phases of the programming process. 
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This chapter illustrates the various ways KBKmacs can be used by presenting a scenario showing the 
construction of several l isp programs. The chapter is divided into five sections. I he first section discusses 
Lisp programming cliches. (Appendix A presents the complete l isp Cliche library.) 1 he second section 
shows KBKmacs being used to construct a report program through the top-down combination of cliches, 'flic 
third section shows KBKmacs being used to construct a numerical program through the bottom-up 
combination of cliches. The fourth section shows KBKmacs being used to assist in program modification and 
documentation. The fifth section shows the definition of a new cliche. It also illustrates a third method of 
program construction — the lateral modification of almost-right cliches. 

Lisp Cliches 

As discussed in Chapter I, the heart of KBKmacs is the library of programming cliches. These cliches 
prov ide die basic vocabulary used in the communication between man and machine and embody most of the 
knowledge which is shared between the programmer and KBKmacs. One of the basic assumptions 
underlying KBKmacs is that the knowledge of cliches is indeed shared between man and machine — i.e., that 
the programmer is aware of at least the basic features of die various cliches. In consonance with this, it is 
important for the reader to develop an understanding of what dicse cliches arc like before looking at die 
scenario below. 

A Simple Cliche 

As a simple example of a cliche, consider the following definition of how to square a number. Lisp cliches 
are defined by using die form DEFINE-CLICHE. This form specifies die name of the cliche, some declarations 
describing the cliche, and the computation corresponding to die cliche. The roles of a cliche are represented 
by {...}. Here, die only role is die number to be squared. (The Lisp function ( A x y ) computes x^.) 

(DEFINE-CLICHE SQUARING 

(PRIMARY-ROLES (NUMBER) 

DESCRIBED-ROLES (NUMBER) 

COMMENT "computes the square of (the number}") 

( A (the input number} 2)) 

When communicating with KBKmacs, an instance of a cliche is referred to by using an indefinite noun 
phrase — e.g., "a squaring of X". Such a phrase specifics die name of the cliche, and may specify values 
which fill roles of the cliche. The PRIMARY-ROLES declaration specifics which roles can be specified this way, 
and the order in which dicy must be specified. (The language for communicating with KBKmacs is described 
in detail in Chapter V.) 

The COMMENT declaration in the cliche definition is used for generating brief descriptions of instances of 
die cliche. Role references (represented by {...}) in the COMMENT string arc replaced by descriptions of the 
actual computations filling the roles. Tor example, die cliche instance referred to in the last paragraph would 
be briefly described by saying dial it "computes the square of X". 

The DESCRIBED-ROLES declaration is used for generating in-depth descriptions of instances of die cliche. 
As will be discussed in detail in conjunction with the scenario below, this declaration specifics which roles 
should be described in detail when constructing a comment for a program. 
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Machine Understandable Program Annotation 

Before looking at additional cliches it is useful to look at the notation in more depth. Ihc most 
common use of (...) is to represent roles, however, it is not the only use. As discussed in detail in 
Chapter V, this extension to Lisp syntax is provided to represent a variety of machine understandable 
program annotation. 

There arc two basic forms of the notation {...}. The first form is {code, annotation } which describes 
some feature of an existing part of a program. The second form is { annotation } which describes a 
non-existent part of the program. In the latter case, die form acts as a place holder that specifies how the 
non-existent part fits into die computation as a whole. 

If die annotation in a (...) form begins with the word "the" dicn it specifics the name of a role 
(c.g.. (the input number)). (Lowercase is used when printing out die annotation in a (...) form in order 
to differentiate die annotation from the surrounding code.) If code is provided as part of die annotation 
(c.g., {(CAR LIST), the output element)) then this indicates that the role is already filled in. 

If a role name contains die word "input" then it is treated as logically being an input to die containing 
cliche. Similarly, if a role name contains die word "output" then it is treated as logically being an output of 
die containing cliche. Information about logical inputs and outputs is used to help determine the data flow 
between cliches when diey are combined together. Most roles are ncidier inputs nor outputs but rather 
correspond to some internal part of the computation. 

The name of a role can eidier be a simple noun phrase (e.g., (the input number)) or a compound 
phrase (e.g., (the empty-test of the enumerator)). As will be discussed below, a compound phrase 
implicitly specifies a higher level compound role (e.g., the enumerator) which contains the indicated sub-role. 

When (...) annotation acts as a place holder for a role, it can either appear in die form of a simple 
quantity (e.g., (the input number}) or in the form of a function call (e.g., ({the operation) DATA)). If 
the role annotation is in die form of a function call, then it specifies the arguments which are expected to be 
used by the computation filling the role. In die example above, die annotation specifies that the function 
filling die operation role should use as an input the value of the variable DATA. 

A kind of annotation unrelated to roles is illustrated by die form (DATA, modified). This specifics diat 
the given instance of the variable DATA is being side-effected. For example, in the form 
(F X (Y, modified}) die annotation specifies that the function F side-effects its second argument. This 
kind of annotation is used by KBEmacs as part of the basis for understanding the side-effects in a program. 
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Hie Cliche List-Enumeration 

I'hc cliche squaring is very simple in nature, and could have been represented as a simple subroutine. A 
key feature of cliches is that they are capable of representing algorithmic fragments which cannot be 
expressed as simple subroutines. For example, the cliche list-enumeration (shown below) captures the 
concept of enumerating the elements of a list. This cliche can be combined together with other looping 
cliches in order to efficiently perform various operations on lists. 

(DEFINE-CLICHE LIST-ENUMERATION 
(PRIMARY-ROLES (LIST) 

DESCRIBED-ROLES (LIST) 

COMMENT "enumerates the elements of {the list}") 

(LET* ((LIST {the input list})) 

(LOOP DO 

(IF ({NULL, the empty-test} LIST) (RETURN)) 

{({CAR, the element-accessor} LIST), the output element} 

(SETQ LIST ({CDR, the step} LIST))))) 

The cliche list-enumeration is a member of a general class of cliches referred to as enumerators , all of 
which have essentially the same roles. The input role (here the list) is the aggregate structure which is to be 
enumerated. The empty-test (here NULL) tests to sec whether all of the elements in the aggregate structure 
have been enumerated and therefore whether the enumeration should be terminated. The element-accessor 
(here CAR) accesses die individual elements of die aggregate structure. The step (here CDR) steps from one 
element of the aggregate structure to die next. The output of the clement-accessor is given a name (here the 
element) so that it can be conveniently referred to when communicating with KBEmacs. 

It is interesting to note that die cliche squaring also has an output — the result of the squaring operation. 
However, diis output is not given a special role name. Radier, it is assumed that like functions, must cliches 
will have a return value. The return value of a cliche is automatically treated as a kind of output role by 
KBRmacs. Explicit output roles arc only used in situations (such as die one in the cliche list-enumeration) 
where the ordinary return value mechanisms arc not sufficient to specify an output. 
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The Cliche Simple-Report 

A cliche of central importance to the scenario is the cliche simple-report (shown below). I his cliche 
specifics the high level structure of a simple report program. The cliche is significantly more complex titan 
the previous ones in several ways. To start with, although it is written using standard Lisp Machine functions, 
it makes use of a number of functions which may be unfamiliar to users of other Lisp dialects. 

The form WITH-OPEN-FILE combines the actions of opening a file and guaranteeing that the file will be 
closed even if an error or other interrupt occurs during the evaluation of the form. The opened file is bound 
to a variable (here REPORT) during the execution of the body of the form. The form LET* is the same as the 
standard Lisp form LET except that the bound-variable value pairs arc processed sequentially instead of in 
parallel. The expression (TIME:PRINT-CURRENT-TIME NIL) returns a string of the form 
"mm/dd/yy hh:mm:ss" specifying the current date and time. The function FORMAT prints out textual 
information. Like the Fortran construct it is named after, it is inscrutable but convenient for specifying how 
output is to be formatted on the page. The form (LOOP DO ...) repetitively executes tine forms in its body 
until one of these forms terminates the loop by evaluating (RETURN). The form (WHEN predicate .. .) 
evaluates the forms in its body if and only if the predicate ev aluates to non-NIL. 

(DEFINE-CLICHE SIMPLE-REPORT 

(PRIMARY-ROLES (ENUMERATOR PRINT-ITEM SUMMARY) 

DESCRIBED-ROLES (FILE-NAME TITLE ENUMERATOR 

COLUMN-HEADINGS PRINT-ITEM SUMMARY) 

COMMENT "prints a report of (the input structure of the enumerator}" 
CONSTRAINTS 

((DEFAULT {the file-name} "report.txt") 

(DERIVED {the line-limit} 

(- 65 

(SIZE-IN-LINES {the print-item}) 

(SIZE-IN-LINES {the summary}))))) 

(WITH-OPEN-FILE (REPORT {the file-name} ':0UT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(PAGE 0) 

(TITLE {the title}) 

(DATA {the input structure of the enumerator})) 

(FORMAT REPORT "~5%~66: <~A~>~2%~66: <~A~>~°/o" TITLE DATE) 

(LOOP DO 

(IF ({the empty-test of the enumerator} DATA) (RETURN)) 

(WHEN (> LINE {the line-limit}) 

(SETQ PAGE (+ PAGE 1)) 

(FORMAT REPORT "-/|~%Page:~3D~50: <~A~>~17A~2V PAGE TITLE DATE) 

(SETQ LINE 3) 

({the column-headings} {REPORT, modified} {LINE, modified})) 

({the print-item} {REPORT, modified} 

{LINE, modified} 

({the element-accessor of the enumerator} DATA)) 

(SETQ DATA ({the step of the enumerator} DATA))) 

({the summary} {REPORT, modified})))) 

Like any cliche, the cliche simple-report specifics some standard computation (c.g., the printing of the title 
page), some roles to be filled in (c.g., the title itself), and the data flow and control flow which combine them 
together. The cliche has seven roles. Ihc fdc-name is the name of the file which will contain the report being 
produced. The title is printed on a title page and, along with the page number, at the top of each succeeding 
page of the report. The enumerator enumerates the elements of some aggregate data structure. The print-item 
is used to print out information about each of the enumerated elements. The line-limit is used to determine 
when a page break should be inserted in die report. The column-headings arc printed at the top of each page 
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of the report in order to explain the output of the print-item. The summary' prints out some summary 
information at the end of the report. Note that the print-item, column-headings, and summary arc all 
computations which side-effect the report file by sending output to it. 

The enumerator is a compound role which has the four sub-roles (the input structure, the empty-test, the 
element-accessor, and the step) typical of an enumerator. These sub-roles can be filled individually, or they 
can be filled together as a unit by using an enumeration cliche (such as the cliche list-enumeration) which 
specifics values for each of them. 

A significant part of die complexity of die cliche simple-report stems from the fact that code is included 
for keeping track of the page number and die line number, and for determining when a page break should 
occur. (Unlike some other languages, l.isp Machine Lisp does not provide any automatic support for these 
operations.) Under die assumption that only 66 lines (numbered 0 through 65) can be printed on a page, the 
line number is initially set to 66 in order to force a page break immediately after die title page is printed. A 
page break is triggered whenever the line number is greater than die line-limit. When a page break is 
triggered, die page number is incremented, a new page is started with die appropriate page headings, and the 
line number is reinitialized. Note that the column-headings and the print-item arc bodi expected to 
appropriately update die line number. 

An important aspect of die cliche simple-report is diat it specifics two constraints on the roles. These are 
specified as part of the declarations at the beginning of the cliche definition. The first constraint specifies that 
"report. txt" should be used as the default name for the file containing the report. This name will be used 
unless the programmer specifies some other name. 

The second constraint specifics that the line limit should be derived as 65 minus die number of lines 
printed by the print-item, and die number of lines printed by the summary. (Constraint expressions are 
specified as a combination of ordinary lisp code and (...) annotation referring to roles.) The constraint 
guarantees that, whenever the line number is less than or equal to the line limit, dicrc will be room for both 
die print-item and the summary to be printed on the current page. Because the line-limit role is derived by 
this constraint die programmer never has to fill it explicitly, and die role will automatically be updated if the 
print-item or summary are changed. 

An important aspect of cliches in general is illustrated by the fact that the cliche simple-report contains the 
above computation and constraints concerning line numbers, page breaks, and page numbers. The fact that a 
standard scheme for dealing with pagination is included in the cliche improves die productivity of the 
programmers using the cliche because, in general, they no longer have to worry about it. Perhaps more 
importantly, it improves the capability and reliability of the programs produced using die cliche because the 
programs contain a fully general purpose scheme for dealing with pagination which is at least internally 
consistent. 
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The C liche Print-Out 

As a final example of a cliche, consider the cliche print-out (shown below) which prints out an item using 
the function FORMAT. The key aspect of the cliche print-out is that, in addition to printing the item, it 
properly increments the line number. The cliche has three roles: the item to be printed, a format-string which 
specifics how to print the item, and the size-in-lincs which specifics how many print lines arc used by the 
format-string. The role sizc-in-lincs is automatically derived by a constraint. The function SIZE- IN-LINES is 
capable of analyzing a format string (or any other output computation) and determining the maximum 
number of lines which will be required. 

(DEFINE-CLICHE PRINT-OUT 

(PRIMARY-ROLES (FORMAT-STRING ITEM) 

DESCRIBED-ROLES (FORMAT-STRING ITEM) 

COMMENT "prints out (the item}" 

CONSTRAINTS 

((DEFAULT (the format-string} "~%~A") 

(DERIVED (the size-in-lines} (SIZE-IN-LINES {the format-string})))) 

(FORMAT REPORT {the format-string} {the input item}) 

(SETQ LINE (+ LINE {the size-in-lines}))) 

Suites of Cliches 

An important issue underlying cliches in general is that they are not designed in isolation. Rather, cliches 
are typically defined in tightly knit groups, or suites, which are intended to be used together. This is 
illustrated by the cliches simple-report and print-out. An essential aspect of these cliches is that they 
incorporate the same conventions for how to keep track of the line number. Another example of the 
interrelationships between cliches can be seen in die fact drat the cliche list-enumeration is specifically 
designed to fit into the enumerator role of die cliche simple-report. 
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Top-Down Implementation 

This section begins the presentation of a scenario illustrating the use of KBhmacs. In the first part of the 
scenario, the programmer constructs a program (REPORT-TIMINGS) which prints a report. Given a list of 
timings (c.g., of some experiment) the program prints out the timings followed by their mean and standard 
deviation. In order to implement this program, the programmer proceeds in a top-down fashion by first 
specifying the top level cliche to use and then filling in tire roles of this cliche. 

Directions for a Human Assistant 

Suppose that an expert programmer were asked to write the program REPORT-TIMINGS and decided to 
delegate die task to an inexperienced programmer who was his assistant. In order to tell his assistant what to 
do, the expert programmer might give directions like die following. 

Define a simple report program REPORT-TIMINGS with one parameter, a list of 
timings. Print the title "Report of Reaction Timings (in msec.)". Print 
each timing and then print a summary showing the mean and deviation of the 
timings. Do not print any column headings. 

A key aspect of the directions above is that they assume a significant amount of shared knowledge between 
die expert and his assistant. In particular, they assume that the assistant understands die term "simple 
report". Presumably, understanding this term includes an understanding of how to print a title page, and how 
to print headings at the top of the subsequent pages of die report. At a more detailed level it presumably 
includes an understanding of how to determine when page breaks should be introduced. It is precisely this 
shared knowledge diat the cliche simple-report is trying to capture. As we shall sec, by using cliches such as 
simple-report, a programmer can tell KBEmacs how to produce the program REPORT-TIMINGS by giving 
directions at a similar level of detail to die directions shown above. 
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The Layout of Screen Images 

The scenario below is illustrated with a sequence of Lisp Machine screen images. Most of these screens 
show the Kmacs-stylc Lisp Machine editor in which KBEmacs is embedded. Hach of these screens has two 
parts (see Screen 1). The first few lines show a set of commands. The box which makes up most of the screen 
shows die Kmacs buffer which is tire result of these commands. 1'hc line below this box shows tire editor 
mode line and the screen number. 'Lire mode line is composed of tire name of the system (i.c., "KBEmacs"), 
the editing mode (c.g., "(LISP)" or "(TEXT)"), and tire name of tire file being edited. 

In the command area of a screen, bold face italics is used to indicate output typed by the system as 
opposed to what the programmer types. In the editor buffer area of a screen, bold face italics is used to 
indicate the changes in tire buffer (in comparison with the previous screen) caused by tire commands. It 
should be noted that highlighting changed portions of tire editor buffer is unfortunately not currently 
supported by KBEmacs. As a step in this direction, whenever KBKmacs modifies the editor buffer, it 
positions the editing cursor (indicated by □ in the screens) at the beginning of the first significant change in 
tire buffer. 

Integration with Emacs 

Before beginning to construct tire program REPORT-TIMINGS tire programmer uses the standard Emacs 
command c-X c-F (find file) in order to create a file which will contain the program (see Screen 1). 
KBEmacs is implemented so that it is tightly integrated with Emacs. KBEmacs adds a variety of new editor 
commands without interfering with (or rendering obsolete) any of the standard commands. As a result, the 
scenario presented here uses standard editor commands in order to perform standard operations. Although it 
is not assumed that the reader is familiar with these commands, in the interest of brevity, the standard 
commands used are not described in detail. The Lisp Machine documentation [Lisp 84] describes them more 
fully. 

The Knowledge-Based Command "Define" 

In analogy with the standard Emacs command m-X (extended command), KBEmacs supports a new 
command s-X (typed by holding down tire Lisp Machine keyboard shift key SUPER and typing an X) which 
creates a special window wherein the programmer can type a command requesting KBEmacs to do 
something. Once a command is typed, it is executed by typing the Lisp Machine Key <end>. These 
commands (referred to as knowledge-based commands) are specified in an extremely simple pseudo-English 
command language (described in detail in Chapter V). Each knowledge-based command is a verb followed 
by one of more noun phrases. If a word is typed using capital letters (e.g., "TIMINGS" as opposed to 
"parameter") it is assumed to be a literal name or a code fragment and is interpreted without regard for any 
special meaning it may have in tire command language. Automatic word completion in die s-X window is 
used to facilitate typing of the command language. 

In order to begin the construction of the program REPORT-TIMINGS, The programmer uses the 
knowledge-based command "Define" to specify tire name of the program and its parameter. KBEmacs 
communicates die results of knowledge-based commands to the programmer (and to the rest of die Lisp 
Machine system) by directly modifying the text in the editor buffer. In dtis case, the empty program 
definition (DEFUN REPORT-TIMINGS (TIMINGS)) is inserted into die buffer. 
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UPEFtM RtPORT-TlMMGS ( TIMINGS )) 


KBEmacs (LISP) <KBE.O£MO>TIMINGS.LISP Screen 1 
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I isp Scenario 


The Knowledge-based Command "Insert" 

In Screen 2, the programmer uses the knowledge-based command "Insert" in order to fill in the body of 
the program with an instance of the cliche simple-report. In general, the "Insert" command specifics that 
an instance of a cliche is to be inserted into a program at the place where the editing cursor is positioned. 

The code produced in Screen 2 is an instantiation of the cliche simple-report. For the most part this code 
is exactly the same as the code in the definition of this cliche (see above). However, there are several key 
differences. For example, the file-name and line-limit roles have been filled in since they arc specified by 
constraints. (The line-limit role has been given the value 63 under the default assumption, made by the 
function SIZE- IN-LINES, that die print-item and summary will each take up one output line.) 

Suppressing Annotation 

Another difference between the code in Screen 2 and the code in the definition of the cliche is that the 
{. ..} annotation marking the file-name and the line-limit has been suppressed. Once a role is filled in, the 
annotation indicating where it is located is no longer displayed. The only exception to this is output role 
annotation which is, in general, retained in order to alert the programmer to the name of the output role. 

Suppressing the annotation of filled in roles is an aesthetic choice made by KBKmacs. It was decided that 
for the task of program construction, suppressing such annotation is helpful because it reduces visual clutter 
and highlights the roles which are not yet filled in. In other situations (e.g., documentation) it might be 
beneficial for KBKmacs to redisplay this annotation. 

Remembering Annotation Information 

Although KBKmacs does not display annotation for filled in roles, it remembers this information as part of 
its understanding of the program. In addition, KBKmacs remembers what cliches have been used to build up 
a program. As will be illustrated shortly, there are a number of ways in which KBKmacs can use both of these 
types of information to assist the programmer. 

The Purpose of the Code Produced by KBKmacs 

The above discussion brings up the interesting question of exactly what is the purpose of the code 
produced by KBKmacs. Clearly it is not a complete representation of everything that KBKmacs knows about 
a program. Rather, it fulfills two quite distinct purposes. 

The first purpose of the code is to serve as the medium of communication between KBKmacs and the rest 
of the Lisp Machine system. Por example, KBKmacs must create ordinary Lisp code for a program so that the 
standard Lisp interpreter, debugger, and compiler can operate on the program. This purpose requires only 
that the code produced correctly represent the algorithms being used. 

The second purpose of the code is to serve as the primary medium of communication between KBKmacs 
and the programmer. At each moment, the code summarizes the net effect of the knowledge-based 
commands given so far. Further, because the programmer can freely edit the code at any time, the code is a 
two way communication channel. In order to fulfill this purpose, the code must be easily readable. In the 
interest of readability, KBKmacs only displays a small part of die information it could display about a 
program. 
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s-X Insert a simple-report. <end> 


(DEFUN REPORT-TIMINGS (TIMINGS) 

(&ITH-OPEN-FILE (REPORT "report.txt" ’-.OUT) 

(LET • ((D/irf (TIME: PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(PAGE 0) 

(TITLE {the title}) 

(DATA {the input structure of the enumerator })) 

(FORMAT REPORT "~5%~66: <~A~>~2%~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF ({the empty-test of the enumerator} DATA) (RETURN)) 

(WHEN (> LINE 63) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT "~| ~%Pago:~3D~50: <~A~>~17A~2%" PAGE TITLE DATE) 
(SETQ LINE 3) 

({the column-headings} {REPORT, modified} {LINE, modlflecf})) 
({the print-item} {REPORT, modified} 

{LINE, modified} 

({the element-accessor of the enumerator} DATA)) 
(SETQ DATA ({the step of the enumerator} DATA))) 

({the summary} {REPORT, modified})))) 


Screen 2 


KBEmacs (LISP) <KBE.DEMO>TIMINGS.LISP 
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I .isp Scenario 


The Commands s-N and s-P 

In keeping with the general Kmacs philosophy of providing a wide variety of convenient one character 
commands, KBKmacs provides a number of such commands (all of which utilize the shift key SUPER) which 
operate on programs. The command s-N moves to the first occurrence of role annotation after the current 
cursor position. (In Screen 3. the programmer uses the command s-N in order to move to the title role. 
Ordinary cursor motion commands could also have been used.) The command s-P moves to the first 
occurrence of role annotation prior to the current cursor position. The commands s-N and s-P are analogous 
to the standard Kmacs commands c-N (move to the next line) and c-P (move to the previous line). 

Direct Editing 

In order to fill the title role, the programmer uses ordinary Kmacs commands to type in the title string. (In 
the command area of the screen the phrase "direct editing" is used in lieu of an explicit listing of these 
commands since only their net effect is interesting.) The programmer could have used knowledge-based 
commands in order to fill in the title. However, lie judged that ordinary editing would be simpler. An 
important goal of KBKmacs is to provide assistance to the programmer without preventing him from doing 
simple things in simple ways. 'The intent is for the programmer to use ordinary text editing whenever that 
makes tilings easy and to use knowledge-based commands only when they deliver real value — e.g., when 
instantiating the cliche simple-report. 
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s-N 

direct editing 


(DEFUN REPORT-TIMINGS (TIMINGS) 

(WITH-OPEN-FILE (REPORT "report.txt" ’:OUT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(PAGE 0) 

(TITLE "Report of Reaction Timings (In msec .)U 
(DATA {the input structure of the enumerator})) 

(FORMAT REPORT "-57.-66: <~A~>~2%~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF ({the empty-test of the enumerator} DATA) (RETURN)) 

(WHEN (> LINE 63) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT |~7.Page:-3D-50 : <~A~>~17A~2%" PAGE TITLE DATE) 
(SETQ LINE 3) 

({the column-headings} {REPORT, modified} {LINE, modified})) 
({the print-item} {REPORT, modified} 

{LINE, modified} 

({the element-accessor of the enumerator} DATA)) 
(SETQ DATA ({the step of the enumerator} DATA))) 

({the summary} {REPORT, modified})))) 


KBEmacs (LISP) <KBE.DEMO>TIMINGS.LISP 


Screen 3 
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I .isp Scenario 


The Knowledge-based Command "Fill" 

In Screen 4, the programmer specifics that the program should enumerate the list of timings. He docs this 
by using the knowledge-based command "Fill" to fill in the enumerator of die program with an instance of 
die cliche list-enumeration. The fill command specifies that an instance of a cliche is to be used to fill in an 
unfilled role. Definite noun phrases in a knowledge-based command arc disambiguated with respect to the 
position of the cursor. As a result, the phrase "the enumerator" in the knowledge-based command in 
Screen 4 is interpreted to mean the enumerator of the program REPORT-TIMINGS because die cursor was 
positioned in diis program when die command was typed (see Screen 3). 

Filling a Compound Role 

The most important diing to notice about Screen 4 is that all four sub-roles which arc part of die 
enumerator of the program have been filled in at once. The cliche list-enumeration specifies diese four roles 
as a logical unit even though these roles arc distributed through the program. (The cursor is positioned on the 
empty-test on the theory diat changes to die body of a program arc more interesting than changes to variable 
initializations.) 

Another thing to notice about the program in Screen 4 is that it no longer uses die variable DATA but rather 
die more informative variable name LIST. The readability of a program depends to a surprising extent on 
how' die data flow is implemented and, in particular, on what variable names are used. Therefore, KBEmacs 
works hard to use nesting of expressions where appropriate and to pick the best variable names possible. In 
this case, the variable name LIST is chosen because it is specifically suggested by the cliche list-enumeration. 

An additional minor change in the program in Screen 4 is that the order of the bound-variable value pairs 
in die LET* has been changed. In general, KBEmacs puts the bound-variable value pairs in alphabetical 
order. There arc only two exceptions to diis. First, data flow may require some other order. Second, 
uninformative variable names such as DATA are put at die end of the list (see Screen 3.) 
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s-X Fill the enumerator with a list-enumeration of TIMINGS. <end> 


(DEFUN REPORT-TIMINGS (TIMINGS) 

(WITH-OPEN-FILE (REPORT "report.txt" ’:0UT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(LIST TIMINGS ) 

(PAGE 0) 

(TITLE "Report of Reaction Timings (in msec.)")) 

(FORMAT REPORT "~5°/o~66: <~A~>~2°/o~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF P/l/LL LIST) (RETURN)) 

(WHEN (> LINE 63) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT "~|-XPage:~3D~50 : <~A~>~17A~2%" PAGE TITLE DATE) 
(SETQ LINE 3) 

({the column-headings} {REPORT, modified) {LINE, modified})) 
({the print-item} {REPORT, modified} 

{LINE, modified} 

{(CAR LIST), the output element}) 

{SETQ LIST (CDR LIST))) 

({the summary} {REPORT, modified})))) 


KBEmacs (LISP) <KBE .DEMOTIMINGS. LISP 


Screen 4 


32 Usp Scenario 

'Hie Knowledge* Based Command "Romove" 

After specifying the enumerator, the programmer proceeds to fill in the rest of the program. Since no 
column headings arc to be used in this program, the programmer uses toe knowledge-based command 
"Remove" in order to get rid of the column-headings role (see Screen S). Note that toe editing cursor is 
positioned where the column-hcadings used to be. 

Screen 5 is an example of the fact that in addition to filling in roles, toe programmer can prune away 
unneeded ones. In general, cliches (such % simple-report) are defined so that they include a wide variety of 
features on the theory that it is easier for the programmer to {mine things away than to think them up. 
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s-X Remove the column-headings. <end> 


(DEFUN REPORT-TIMINGS (TIMINGS) 

(WITH-OPEN-FILE (REPORT "report.txt” ’:OUT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(LIST TIMINGS) 

(PAGE 0) 

(TITLE "Report of Reaction Timings (in msec.)")) 

(FORMAT REPORT "~57o~66: <~A~>~2°/a~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 

(WHEN (> LINE 63) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT "~|~%Page:-3D-50 : <~A~>~17A~27." PAGE TITLE DATE) 
(SETQ LINE 3)0 

({the print-item} {REPORT, modified} 

{LINE, modified} 

{(CAR LIST), the output element}) 

(SETQ LIST (CDR LIST))) 

({the summary} {REPORT, modified})))) 


KBEmacs (LISP) <KBE,DEMO>TIMINGS.LISP 


Screen 5 
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I.isp Scenario 


The Abbreviated Command s-F 

In Screen 6, the programmer specifics how to print out each of the timings being enumerated. He does 
this by using the command s-F. In addition to the basic command s-X, KBKmacs supports a number of 
abbreviated commands which make it easier to type knowledge-based commands. Each of these commands 
creates the same interaction window as the command s-X. However, when the window is created it is 
initialized with a partial (or complete) knowledge-based command. The result of using one of the abbreviated 
commands is identical to using s-X and typing the knowledge-based command in full. In the screens in the 
scenario, initialized text is highlighted with bold face italics since it is supplied by the system. 

The command s-F sets up a "Fill" command for the first unfilled role which tcxtually follows the 
current cursor position (in this ease the print-item). The programmer completes the command by specifying 
that the print-item role should be filled with the cliche print-out. The programmer specifics the format-string 
as a literal piece of code in the knowledge-based command. ( The format string forces a new line, prints 5 
spaces, and then prints out an 8 digit decimal number.) The fact that program text can be directly included in 
a knowledge-based command is convenient in many situations. 

Deducing Data Flow Connections 

The most difficult part of filling in a role with an instance of a cliche is deciding how to connect up the 
data flow. This is done by comparing the data flow environment of the unfilled role with the data flow 
requirements of the cliche. 

The print-item role in Screen 5 (reproduced below) specifies that this role takes as inputs the output file 
REPORT, the line number variable LINE, and the output element of the enumerator. In addition, it specifics 
that REPORT and LINE arc modified by the print-item and therefore are outputs of the role. 

({the print-item} {REPORT, modified} 

{LINE, modified} 

{(CAR LIST), the output element}) 

The definition of the cliche print-out (reproduced below) specifics that the cliche has a logical input role 
called item. It also specifics that the cliche has two additional inputs REPORT and LINE because these values 
arc referenced as free variables in the body of the cliche. In addition, these values are outputs of the cliche 
because they arc modified by die body of die cliche. (The variable REPORT is side-effected by die function 
FORMAT and the variable LINE is assigned to.) 

(DEFINE-CLICHE PRINT-OUT 

(PRIMARY-ROLES (FORMAT-STRING ITEM) 

DESCRIBED-ROLES (FORMAT-STRING ITEM) 

COMMENT "prints out {the item}" 

CONSTRAINTS 

((DEFAULT {the format-string} "~%~A") 

(DERIVED {the size-in-1 ines} (SIZE-IN-LINES {the format-string})))) 

(FORMAT REPORT {the format-string} {the input item}) 

(SETQ LINE (+ LINE {the size-in-iines}))) 

When die print-item role is filled with an instance of the cliche print-out die data flow is connected up as 
follows. The REPORT and LINE inputs to the print-out are connected to die REPORT and LINE arguments of 
the print-item role because they have die same names. The same identity of names connects die REPORT and 
LINE outputs of die print-out to the side-effected outputs of the print-item role. The input item role of die 
print-out is connected to the output element of the enumerator because diis element is die only remaining 
argument of the print-item which has not been accounted for. The return value of die print-out is not 
connected to anything because die return value of the print-item role is not used for anything. 
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s-F Fill the print-item with a print-out of "~&~5X~8:D".. <end> 


(DEFUN REPORT-TIMINGS (TIMINGS) 

(WITH-OPEN-FILE (REPORT "report.txt" ':OUT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(LIST TIMINGS) 

(PAGE 0) 

(TITLE "Report of Reaction Timings (in msec.)")) 

(FORMAT REPORT "~57.~66: <~A~>~2%~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 

(WHEN (> LINE 63) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT "~|~%Page:-3D-50: <~A~>~17A~2°/o" PAGE TITLE DATE) 
(SETQ LINE 3)) 

D FORMAT REPORT "~&~5X~8 : D” {(CAR LIST), the output element }) 

(SETQ LINE (+ LINE 1 )) 

(SETQ LIST (CDR LIST))) 

({the summary} {REPORT, modified})))) 


KBEmacs (LISP) <KBE.DEMOTIMINGS.LISP 


Screen 6 
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I .isp Scenario 


Asking What Needs to be Done 

Up to this point in the scenario, KBKmacs has been used solely to assist in program construction. 
Although this is the dominant mode of interaction with KBKmacs, there arc many other ways in which the 
system can support the programmer. For example, KBKmacs keeps track of what remains to be done in order 
for a program to be complete. In Screen 7, die programmer asks the system to report what still needs to be 
done with die program REPORT-TIMINGS. (He uses die abbreviated command s-W to save typing.) 
KBKmacs reports diat the summary role still needs to be filled. In addition to unfilled roles, the system will 
also list any output roles which have not been used for anything. 

In order to fill die summary, the programmer moves the editing cursor to die position of die summary 
role, and uses ordinary editing commands to type in an expression which prints out a summary showing the 
mean and deviation of the timings. In this expression he assumes the existence of a subroutine 
ME AN-AND-DEV I AT ION which returns die die mean and deviation of a list of numbers. 
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s-W What needs to be done? <end> 
for the function REPORT-TIMINGS 
Fill the summary. 

s-N s-N direct editing 


(DEFUN REPORT-TIMINGS (TIMINGS) 

(WITH-OPEN-FILE (REPORT "report.txt" ’:0UT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(LIST TIMINGS) 

(PAGE 0) 

(TITLE "Report of Reaction Timings (in msec.)")) 

(FORMAT REPORT "~55t~66: <~A~>~2°/o~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 

(WHEN (> LINE 63) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT "~|~%Page:-3D-50: <~A~>~17A~27." PAGE TITLE DATE) 
(SETQ LINE 3)) 

(FORMAT REPORT "~&~5X~8:D" {(CAR LIST), the output element}) 

(SETQ LINE (+ LINE 1)) 

(SETQ LIST (COR LIST))) 

(FORMAT REPORT "~2&~{mean:~8:D ( deviation: ~:D)~}" 

( MEAN-AND-DEVIATION TIMINGS)) 0)) 


KBEmacs (LISP) <KBE.DEMO>TIMINGS.LISP 


Screen 
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Lisp Scenario 


The Knowledge-Based Command "Finish" 

In Screen 8, the programmer uses the knowledge-based command "Finish" (triggered by the abbreviated 
command s-<end>) in order to signal that lie is finished implementing the program REPORT-TIMINGS. This 
command first checks that the program is indeed completed. It would complain if there were any unfilled 
roles or any output roles which were not used for anything. Next, the command removes all output role 
annotation (in this case, for the role clement). This is done in order to render die program in completely 
standard Lisp. This annotation can be reintroduced at a later time if the programmer desires. 

Analyzing Direct Kditing Done by the Programmer 

Before executing any knowledge-based command (c.g., s-X, s-F, or as here s-<end>), KBKmacs first 
analyzes the effects of any direct editing which the programmer has performed. Here, KBKmacs concludes 
that the code added by the programmer in Screen 7 is intended to fill the summary role since the only change 
in the program is that the new code replaces the summary tcxtually. (KBKmacs waits until the next 
knowledge-based command is used in order to avoid analyzing partially edited programs which arc in 
inconsistent states.) 

This same kind of analysis occurred after the programmer used direct editing to fill in the title role in 
Screen 3. However, it was not mentioned there because it did not lead to any interesting results. Here 
however, KBKmacs changes tire line-limit role of the program from 63 to 62. 

The line-limit is changed due to the constraint on this role which is part of the definition of die cliche 
simple-report. As mentioned above, die value 63 was originally chosen under the assumption diat the 
print-item and the summary would each require one output line. The line-limit did not change when the 
programmer filled the print-item, because he filled it with a computation which did require one output line. 
However, by using the FORMAT code ~2& the programmer filled the summary with a computation which 
requires two output lines. 

Enhanced Program Reliability 

The automatic updating of die line-limit role is a good example of the way KBKmacs can enhance 
program reliability. The main leverage KBKmacs applies to the reliability problem is diat each cliche is 
internally consistent. The use of constraints can help maintain this consistency. 

It is interesting to note that if KBKmacs did not update the line-limit role, the programmer would 
probably not have realized that it needed to be updated. The bug which would result, though minor, would 
have die pernicious quality of being rather hard to detect during program testing since die bug only manifests 
itself when the program attempts to print the summary as die last line of a page. 
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s-<end> Finish editing the function REPORT-TIMINGS. <end> 


(DEFUN REPORT-TIMINGS (TIMINGS) 

(WITH-OPEN-FILE (REPORT "report.txt" ':0UT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(LIST TIMINGS) 

(PAGE 0) 

(TITLE "Report of Reaction Timings (in msec.)")) 

(FORMAT REPORT "~5°/.~66: <~A~>~2%~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 

(WHEN (> LINE 02) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT "~ | ~%Page :-3D-50 : <~A~>~17A~2%" PAGE TITLE DATE) 
(SETQ LINE 3)) 

(FORMAT REPORT "~&~5X~8:D" (CAR LIST)) 

(SETQ LINE (+ LINE 1)) 

(SETQ LIST (CDR LIST))) 

(FORMAT REPORT "~2&~{mean:~8:D (deviation: ~:D)~}" 

(MEAN-AND-DEVIATION TIMINGS))))) 


KBEmacs (LISP) <KBE.DEMO>TIMINGS.LISP 


Screen 8 
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I .isp Scenario 


Integration With the Lisp Machine Environment 

In Screen 9, the programmer uses the standard Kmacs command c-shift-C (compile definition) to 
compile the program REPORT-TIMINGS so that he can test the program. As part of its normal functioning, 
this command warns the programmer that the function ME AN-AND-DEV I AT ION has not yet been defined. This 
is another example of the fact that KBEmacs attempts to build on top of the standard programming 
environment and use its facilities wherever possible. 

Evaluating the Commands Used 

Consider the set of knowledge-based commands which were used in order to implement the program 
REPORT-TIMINGS. These commands arc summarized below with the direct editing recast as equivalent uses 
of the knowledge-based command ’’Fill". 

Define a program REPORT-TIMINGS with a parameter TIMINGS. 

Insert a simple-report. 

Fill the title with "Report of Reaction Timings (in msec.)”. 

Fill the enumerator with a list-enumeration of TIMINGS. 

Remove the column-headings. 

Fill the print-item with a print-out of "~&~5X~8:D". 

Fill the summary with (FORMAT REPORT "~2&~{mean:~8:D (deviation: ~:D)~}" 

(MEAN-AND-DEVIATION TIMINGS)). 

It is interesting to compare these commands with the hypothetical set of directions for an inexperienced 
assistant programmer (reproduced below). The two sets of directions arc quite similar in tone. They share the 
approach of relying on key terms such as "simple report" and the basic viewpoint of specifying all of the key 
features of the algorithm. 

Define a simple report program REPORT-TIMINGS with one parameter, a list of 
timings. Print the title "Report of Reaction Timings (in msec.)". Print 
each timing and then print a summary showing the mean and deviation of the 
timings. Do not print any column headings. 

However, the knowledge-based commands are significantly more detailed. For example, using KBEmacs 
the programmer must explicitly refer to the cliche list-enumeration. In addition, he must specify the exact 
format-strings to use for printing timings and the summary. As will be discussed in Chapter IV, an important 
future direction for KBEmacs is increasing the capability of the system in order to reduce the detail which has 
to be specified by the programmer. 
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c-shift-C Compiling REPORT-TIMINGS 

The following functions were referenced but do not seem defined : 
MEAN-AND-DEVIATION referenced by REPORT-TIMINGS 


Q)EFUN report-timings (timings) 

(WITH-OPEN-FILE (REPORT ’Teport.txt" ':OUT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(LIST TIMINGS) 

(PAGE 0) 

(TITLE "Report of Reaction Timings (in msec.)")) 

(FORMAT REPORT "~5%~66: <~A~>~2%~66: <~A~>~7." TITLE DATE) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 

(WHEN (> LINE 62) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT "~|~%Page:-3D-50: <~A~>~17A~2“/." PAGE TITLE DATE) 
(SETQ LINE 3)) 

(FORMAT REPORT "~&~5X~8:D” (CAR LIST)) 

(SETQ LINE (+ LINE l)) 

(SETQ LIST (CDR LIST))) 

(FORMAT REPORT "~2&~{mean:~8:D (deviation: ~:D)~}" 

(MEAN-AND-DEVIAT ION TIMINGS))))) 


KBEmacs (LISP) <KBE.DEMO>TIMINGS.LISP 


Screen 9 
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Bottom-Up Implementation 

In the next part of the scenario, the programmer proceeds to implement the function 
ME AN-AND-DEV I AT I ON. In doing diis, he uses a rather different style of interaction with KBKmacs. Instead 
of constructing the program in a top-down fashion starting from a top level cliche, he builds up the program 
from the bottom up by combining various low level cliches. 'Phis bottom-up approach is appropriate because 
there is no interesting top level cliche which captures the overall structure of the desired program. 

Directions for a Human Assistant 

Consider the kind of directions an expert programmer might give to his assistant. The directions shown 
below assume that the assistant docs not know how to compute die mean and deviation. Although the 
directions do not refer to any overall high level concept, they make use of lower level concepts such as 
computing a sum. 

Define a program MEAN-AND-DEVIATION with one parameter, a list of timings. 

Return a list of the mean and deviation of these timings. The mean is the 
sum of the timings divided by the number of timings. The standard deviation 
is the square root of the difference between the second moment and the square 
of the mean. The second moment is the sum of the squares of the timings 
divided by the number of timings. 

It would have been equally plausible to assume that the assistant did know how to compute the mean and 
deviation. In consonance with this, it would also be perfectly plausible to assume that KBRmacs had cliches 
for computing the mean and deviation. However, die goal of this part of the scenario is to illustrate how low 
level cliches can be combined together in order to build up a more complex computation. As a result, the 
scenario assumes that cliches for computing the mean and deviation arc not available. 

Direct Editing 

In order to begin the implementation of the program ME AN-AND-DEV I AT ION, the programmer begins by 
simply typing in a functional header for the program (see Screen 10). This is often easier than using the 
knowledge-based command "Define". 
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The Cliche Sum 

In order to compute tiic mean, the program MEAN-AND-DEVIATION must compute the sum of the timings. 
Since this is a stereotyped computation, the programmer asks KBKmacs to insert it into die program (see 
Screen 11). The programmer specifics the appropriate summation algorithm by combining two cliches: 
list-enumeration and sum. (Note that this is the same list-enumeration cliche which was used in the 
implementation of the program REPORT-TIMINGS. The most essential feature of any cliche is that it is a 
chunk of knowledge which is used again and again in many different situations.) 

The cliche sum (shown below) specifies how to accumulate die sum of a scries of numbers. 

(DEFINE-CLICHE SUM 

(PRIMARY-ROLES (NUMBER) 

DESCRIBED-ROLES (NUMBER) 

COMMENT "accumulates the sum of {the number}") 

(LET* ((SUM {0, the zero})) 

(LOOP DO 

(SETQ SUM ({+, the accumulator} SUM {the input number}))) 

SUM)) 

The cliche sum is a member of a general class of cliches referred to as accumulators, all of which have 
essentially die same roles. An input role (here the number) is a sequence of values which is to be combined 
into some aggregate value. The accumulator (here +) is an operator which adds successive input values into 
the aggregate. The zero (here 0) is die zero value corresponding to the accumulator. The return value of the 
cliche is the sum as a whole. The cliche sum also specifies a name to use for the variable used to accumulate 
the sum (i.e., SUM). 
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s-X Insert a sum of a list-enumeration of TIMINGS. <end> 


(DEFUN MEAN-AND-DEVIATION (TIMINGS) 

Olft* ((list timings ) 

(SUM 0 )) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 

(SETQ SUM (+ SUM {(CAR LIST), the output element})) 
(SETQ LIST (CDR LIST))) 

SUM)) 


KBEmacs (LISP) <KBE.DEM0>TIMINGS.LISP 


Screen 11 
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Direct Kditing 

The programmer continues the implementation of the program ME AN-AND-DEV I AT I ON by moving the 
editing cursor to the end of the program and starting to type an expression specifying what the program 
should return (sec Screen 12) — i.c., a list the first element of which is the mean. The mean in turn is the sum 
of the timings divided by the number of timings. (It is an idiosyncrasy of the Lisp Machine Lisp dialect used 
in this scenario that the division function must be written as "//".) 

Note that the programmer could have proceeded to implement die program MEAN-AND-DEVIATION in a 
more top-down fashion by specifying that die program computed a list of two values die first of which was a 
division of a sum and a count. However, there would have been no point in doing this because the cliches list 
(corresponding to the function LIST) and division (corresponding to the function //) arc too trivial to be 
useful. As mentioned earlier, die goal of KBHmacs is to assist the programmer, not to pedantically force him 
to do simple things in complex ways. 
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direct editing 
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Flexible Interaction 

Screen 12 is frozen at the moment where the programmer wants to enter a computation of the number of 
timings. Since counting the number of timings is a stereotyped operation. Screen 13 shows the programmer 
using the knowledge-based command "Insert" in order to ask KBHmacs to insert the appropriate 
computation into the program. 

The use of the knowledge-based command "Insert" in Screen 13 is a good example of the kind of 
flexible interaction between man and machine that KBHmacs is striving for. In the middle of typing an 
expression, the programmer issues a request to KBHmacs which is easy to conceive of and even easier to state, 
but which requires a significant number of changes scattered throughout the program — c.g., in addition to 
adding computation into the main loop, two new variables are created. Because such commands arc available, 
die programmer can rapidly build up his program by combining together whole algorithms in the order in 
which they naturally come to mind. 

The cliche count determines the length of some enumerated series of elements. Hike the cliche sum, count 
is an accumulation cliche. As will be discussed in detail in Appendix A, die cliche count is particularly 
interesting in that it depends on a logical input (the elements to be counted), but docs not actually use any of 
diese values. As a result, the data How in Screen 13 does not reveal diis dependency. 

An interesting feature of the knowledge-based command in Screen 13 is that the input role of the count 
cliche is specified using the phrase "the element" radier dian by using another cliche or a literal code 
fragment. As indicated above, die purpose of output roles is so that dicy can be referred to in diis fashion. It 
should also be noted diat the output role annotation is no longer displayed in Screen 13. Such annotation is 
suppressed, in the interest of brevity, whenever an output role is directly assigned to a variable since die 
programmer can use the variable name if he wants to refer to the output value. 

Using Common Sense 

An important aspect of Screen 13 is that though the changes in the program clearly satisfy the 
programmer’s intent, they do not correspond to the simplest interpretation of the knowledge-based command 
given. In general, the knowledge-based command "Insert" inserts code at the place where die editing 
cursor is positioned. Given that diis is die ease, the most straightforward diing for KBHmacs to have done 
would have been to create code of die following form. 

(DEFUN MEAN-AND-DEVIATION (TIMINGS) 

(LET* ((COUNT 0) 

(LIST TIMINGS) 

(SUM 0)) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 

(SETQ SUM (+ SUM {(CAR LIST), the output element})) 

(SETQ LIST (CDR LIST))) 

(LIST (// SUM ff ]PROGN (LOOP DO (SETQ COUNT (+ COUNT 1))) COUNT))))) 

There arc situations where inserting a sub-loop would be the right diing to do. However, in this situation 
it seems patently unreasonable. (Among other diings, an infinite loop is introduced.) KBRrnacs reasons diat 
since die programmer’s command refers to a series of values computed in die main program loop, the count 
cliche should be inserted in diat loop with only the final value of the count inserted at die cursor position. 

This is an example of a deep problem that KBHmacs only solves in a few limited situations — the use of 
common sense. As in any discourse, the programmer wants KBHmacs to exhibit common sense. The system 
tries to do this by rejecting interpretations of knowledge-based commands which are obviously unreasonable. 
However, KBHmacs is quite limited in the level of its common sense because what may appear to the 
programmer as only being common sense may in fact require an understanding of programming which is 
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s-X Insert a count of the element. <end> 


(DEFUN MEAN-AND-DEVIATION (TIMINGS) 
(LET* ((COUNT 0 ) 

( ELEMENT ) 

(LIST TIMINGS) 

(SUM 0)) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 
f}SETQ ELEMENT (CAR LIST)) 
(SETQ COUNT (+ COUNT l)) 

(SETQ LIST (CDR LIST)) 

(SETQ SUM (+ SUM ELEMENT))) 
(LIST (// SUM COUNT)))) 


KBEmacs (LISP) <KBE.DEMO>TIMINGS.LISP 


Screen 13 
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much more extensive than the knowledge possessed by KBEmacs. 

The Quality of the Code Produced by KBKmacs 

As will be discussed in Chapter V, producing reasonably aesthetic program code is the most difficult task 
KBKmacs has to perform. The code in Screen 13 is a good example of the fact that KBKmacs produces code 
which is reasonably good, but far from optimal. The code is clearly readable but it has many small problems. 
For example, KBKmacs is confused by the count cliche into thinking that the output element of the 
enumerator is used in two places and therefore an unnecessary variable is introduced to hold this value. 
Further, though the name for the variable created (i.c., ELEMENT) is plausible, it is not particularly meaningful 
in the context of this program. As a final example, within the constraints of data flow, KBKmacs orders the 
variables bound by the LET » alphabetically rather than by using some knowledge-based criterion. 

One way to think about the code produced by KBKmacs is to realize that like any code, this code has an 
identifiable style. From the point of view of the programmer using KBKmacs this is a disadvantage in the 
sense that he would probably prefer to look at code that is written in his own style rather than in the system’s 
style. However, this disadvantage is counterbalanced by several advantages. First, the programmer is relieved 
of much of the task of writing the code. If you ask someone else to write some code for you it is only 
reasonable to expect it to come out largely in their style. Second, since KBEmacs completely recodes a 
program after each change, the program is always consistent in style rather than taking on a patchwork look 
after a sequence of modifications. Third, if several programmers are working on a project, than the fact that 
KBKmacs largely controls the style of the code, might lead to better inter-programmer communication by 
rendering the code for the project as a whole more stylistically uniform. 

Tidying Up the Code Produced by KBEmacs 

In Screen 14, the programmer Uses the standard Kmacs command m-% (query replace) to rename the 
variable ELEMENT to TIMING. This illustrates the fact that if the programmer docs not like the variables 
chosen by KBEmacs, he can easily change them. 

Embedding Cliche References in Program Code 

In Screen 14, the programmer finishes the program ME AN-AND-DEVI AT ION by specifying how to compute 
the deviation. He docs this by using standard Emacs commands to directly modify the program code. The 
expression the programmer inserts illustrates another way in which KBEmacs can be used. Annotation which 
describes a computation to be performed in terms of cliches can be inserted directly in a program. KBEmacs 
will eventually replace this annotation with the appropriate code. This is equivalent to using the 
knowledge-based command "Insert", but can be more readable. 

The first piece of annotation specifies how to compute a sum of the squares of the individual timings. It 
uses the cliches sum and squaring. The second piece of annotation is used to refer to the value of the mean. 
The phrase "a use of” makes it possible to refer to a quantity even when it is not stored in a variable. 
Without this capability, the programmer would have to introduce a variable himself. The phrase 
"the first //" identifies the value as the output of the first (in execution order) division operation. 
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m-c-H c-U m-% replace some occurrences of: ELEMENT with : TIMING 
direct editing 


(DEFUN MEAN-AND-DEVIATION (TIMINGS) 

(LET* ((COUNT 0) 

( TIMING) 

(LIST TIMINGS) 

(SUM 0)) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 

(SETQ TIMING (CAR LIST)) 

(SETQ COUNT (+ COUNT l)) 

(SETQ LIST (CDR LIST)) 

(SETQ SUM (+ SUM TIMING))) 

(LIST (// SUM COUNT) 

(ISQRT (- (// {a sum of a squaring of TIMING } COUNT) 
( A {a use of the first //} 2)))Q)) 


KBEmacs (LISP) <KBE.DEMO>TIMINGS.LISP 


Screen 14 
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Replacing Imbedded Cliche References With Code 

In Screen 15, the programmer tells KBKmacs that the program has been completed by using the command 
s-<end>. The major effect this has is to cause KBKmacs to analyze the direct editing done by the 
programmer in the last screen and to replace the annotation introduced with ordinary program code. As part 
of this, a second summation is inserted into the main loop. This summation computes the sum of the squares 
of the timings. Due to the fact that the variable name SUM is already used in the program, KBKmacs uses the 
name SUMl for the accumulation variable of this second summation. In addition, a variable is introduced so 
that die value of die mean can be used twice. The name X is used for diis variable because KBKmacs has no 
basis for determining a better name to use. Finally, in order to maintain its stylistic constraints, KBKmacs 
reorders the bound variables so that they are alphabetical. (They got out of order due the the variable 
renaming in Screen 14.) 
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s-<end> Finish editing the function MEAN-AND-DEVIATION. <end> 


(DEFUN MEAN-AND-DEVIATION (TIMINGS) 

(LET* ((COUNT 0) 

(LIST TIMINGS) 

(SUM 0) 

(SUM1 0) 

( TIMING) 

(X)) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 

(SETQ TIMING (CAR LIST)) 
tOSEr<? SUMl (+ SUMl ( A TIMING 2))) 

(SETQ COUNT (+ COUNT 1)) 

(SETQ LIST (CDR LIST)) 

(SETQ SUM (+ SUM TIMING))) 

(SETQ X (// SUM COUNT)) 

(LIST X (ISQRT (- (// SUMl COUNT) { A X 2)))))) 


KBEmacs (LISP) <KBE.DEMO>TIMINGS.LISP 


Screen 
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Tidying Up the Code Produced by KBKniacs 

Looking at the result produced in Screen 15, the programmer decides to change the variable names chosen 
by KBHmacs so that they arc more mnemonic. He does this using standard editing commands in Screen 16 
and then compiles the program so that it can be tested. 

Evaluating the Commands Used 

The KBHmacs commands used in this part of the scenario can by nicely summarized by supposing that all 
of the cliches were referred to with embedded annotation. (If embedded annotation had actually been used as 
shown below, it would have resulted in a correctly running program. However, the program would have been 
quite inefficient because there would have been four separate list-enumerations and two separate counts. 
KBHmacs is not capable of automatically determine that these computations should be shared. Achieving this 
sharing is an important reason why the scenario above took the form it did.) 

(DEFUN MEAN-AND-DEVIATION (TIMINGS) 

(LIST (// {a sum of a list-enumeration of TIMINGS) 

{a count of a list-enumeration of TIMINGS}) 

(ISQRT (- (// (a sum of a squaring of a list-enumeration of TIMINGS) 

(a count of a list-enumeration of TIMINGS}) 

( A {a use of the first //} 2))))) 

It can be seen that the knowledge-based commands used have much the same form as the set of directions 
for a human assistant hypothesized at the beginning of this section. 

Define a program MEAN-AND-DEVIATION with one parameter, a list of timings. 

Return a list of the mean and deviation of these timings. The mean is the 
sum of the timings divided by the number of timings. The standard deviation 
is the square root of the difference between the second moment and the square 
of the mean. The second moment is the sum of the squares of the timings 
divided by the number of timings. 
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m-c-H c-U m-% replace some occurrences of: SUM1 with: SUM-SQUARES 
m-c-H c-U m-7o replace some occurrences of: X with: MEAN 
s-<end> Finish editing the function MEAN-AND-DEVIATION. <$nd> 
c-shift-C Compiling MEAN-AND-DEVIATION 


©3EFUN MEAN-AND-DEVIATION (TIMINGS) 

(LET* ((COUNT 0) 

(LIST TIMINGS) 

(MEAN) 

(SUM 0) 

(SUM-SQUARES 0) 

(TIMING)) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 

(SETQ TIMING (CAR LIST)) 

(SETQ SUM-SQUARES (+ SUM-SQUARES ( A TIMING 2))) 

(SETQ COUNT (+ COUNT 1)) 

(SETQ LIST (CDR LIST)) 

(SETQ SUM (+ SUM TIMING))) 

(SETQ MEAN (// SUM COUNT)) 

(LIST MEAN (ISQRT (- (// SUM-SQUARES COUNT) ( A MEAN 2)))))) 


KBEmacs (LISP) <KBE.DEMO>TIMINGS.LISP 


Screen 
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resting 

In Screen 17, the programmer uses die standard Lisp Machine context switching command <*tlect> L in 
order to temporarily switch to the Usp execution environment. He then defines a test program 
TEST-REPORT-TIMINGS and tests the program REPORT-TIMINGS. Hie program DISPLAY-REPORT (see 
Appendix B) displays the report produced. In order to save screen spice die program DISPLAY-REPORT 
abbreviates groups of blank lines with a single line of the form "<n blank HntsV. Page breaks are 
represented by "<pag«> M . Screen 17 is yet another example of the fact that KAEmacs is integrated with the 
Lisp Machine environment in such a way that the programmer can use aH of the normal Lisp Machine 
facilities. 
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<select> L 


(DEFUN TEST-REPORT-TIMINGS () 

(REPORT-TIMINGS ’(10041 9315 10722 11473 10834 11076 10447 10658 9529 
9041 10452 11137 10351 10384 10474 11706 9592 10685)) 

(DISPLAY-REPORT)) 

TEST-REPORT-TIMINGS 

(TEST-REPORT-TIMINGS) 

<5 blank lines> 

Report of Reaction Timings (in msec.) 

5/27/85 12:16:39 

<page> 

Page: 1 Report of Reaction Timings (in msec.) 5/27/85 12:16:39 

10,041 

9,315 

10,722 

11.473 
10,834 
11,076 
10,447 
10,658 

9,529 

9,041 

10,452 

11,137 

10,351 

10,384 

10.474 
11,706 

9,592 

10,685 

mean: 10,439 (deviation: 713) 

Q 


Lisp Listener 


Screen 17 
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Modification and Documentation 

Although KBHmacs focuses primarily on the task of program construction, the basic capabilities of the 
system provide considerable leverage on other aspects of the programming process. In order to illustrate this 
fact, KBHmacs supports a few commands which are directed explicitly toward the tasks of program 
modification and documentation. 

The Knowledge-Based Command "Replace" 

Looking at the test output produced in Screen 17, die programmer decides that the report would look 
better if the timings were printed out in a tabular form rather than one to a line. In order to perform this 
modification, die programmer first switches back into the editor and then uses die standard Emacs command 
m- . (goto definition) in order to move die editing cursor to the definition of die function REPORT-TIMINGS 
(sec Screen 18). 

Having located the function REPORT-TIMINGS the programmer uses die knowledge-based command 
"Replace" in order to change die print-item from a print-out to a tabularizcd-print-out. The command 
"Replace" removes the old code filling the specified role and replaces it with the new computation specified. 
The essential underpinning of die command is the fact that KBHmacs remembers where die various roles in a 
program arc even after they have been filled in. 

The Cliche Tabularized-Print-Out 

The cliche tabularized-print-out (showm below) is similar to the cliche print-out in that it has two primary 
roles, a format-string and an object to print. However, unlike the cliche print-out, the cliche 
tabularizcd-print-out assumes that the format-string will not force a newline, and prints as many objects as 
possible on each line. Before printing out an object the cliche tests to sec whether there is enough room at the 
end of the current line in order to print it. If there is not enough room, then a newline is inserted (and the line 
number is incremented). The Lisp Machine Lisp function CHARPOS returns the output character position on 
the current line. The role maximum-charpos is derived by a constraint based on the assumption that only 75 
characters can be printed on a line. The function SIZE-IN-CHARACTERS is capable of analyzing simple 
format control strings and determining die maximum number of characters that will be printed. 

(DEFINE-CLICHE TABULARIZED-PRINT-OUT 
(PRIMARY-ROLES (FORMAT-STRING ITEM) 

DESCRIBED-ROLES (FORMAT-STRING ITEM NUMBER-OF-COLUMNS) 

COMMENT "prints out {the item} in columns" 

CONSTRAINTS 

((DEFAULT {the format-string} "~15A") 

(DERIVED {the maximum-charpos} 

(- 75 (SIZE-IN-CHARACTERS {the format-string}))))) 

(WHEN (> (CHARPOS REPORT) {the maximum-charpos}) 

(FORMAT REPORT "~&") 

(SETQ LINE (+ LINE l))) 

(FORMAT REPORT {the format-string} {the input item})) 

In Screen 18, the formal-string specified prints out 10 characters. As a result, the maximum-charpos is set 
at 65. The line-limit role of die simple-report remains fixed at 62 because the tabularizcd-print-out can print 
at most one output line. 
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<select> E 

m-. Edit definition of REPORT-TIMINGS 

s-X Replace the print-item with a tabularized-print-out of "~10:D". <end> 

s-<end> Finish editing the function REPORT-TIMINGS. <end> 

c-shift-C Compiling REPORT-TIMINGS _ 

(DEFUN REPORT-TIMINGS (TIMINGS) 

(WITH-OPEN-FILE (REPORT "report.txt" *:OUT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(LIST TIMINGS) 

(PAGE 0) 

(TITLE "Report of Reaction Timings (in msec.)")) 

(FORMAT REPORT "~5%~66: <~A~>~2%~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 

(WHEN (> LINE 62) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT |-“/.Page :-3D-50: <~A~>~17A~2%" PAGE TITLE DATE) 
(SETQ LINE 3)) 

OkHf/l/ (> (CHARPOS REPORT) 65) 

(FORMAT REPORT ") 

(SETQ LINE (+ LINE l))) 

(FORMAT REPORT ”~10:D” (CAR LIST)) 

(SETQ LIST (CDR LIST))) 

(FORMAT REPORT "~2&~{mean:~8:D (deviation: ~:D)~}" 

(MEAN-AND-DEVIATION TIMINGS))))) 


KBEmacs (LISP) <KBE.DEMO>TIMINGS.LISP 


Screen 18 
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<select> L 



(TEST-REPORT- 

TIMINGS) 






<5 blank lines> 







Report of 

Reaction 

Timings 

(in msec.) 





5/27/85 

12:17:07 



<page> 

Page: 1 

Report of 

Reaction 

Timings 

(in msec.) 

5/27/85 

12:17:07 

10,041 

9,315 

10,722 

11,473 

10,834 

11,076 

10,447 

10,658 

9,529 

9,041 

10,452 

11,137 

10,351 

10,384 

10,474 

11,706 

9,592 

10,685 




mean: 10,439 

D 

(deviation: 713) 







Lisp Listener 


Screen 19 
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The Knowledge-Based Command "Comment" 

In Screen 20, the programmer switches back to the editor and asks KBKmacs to generate a comment for 
the function REPORT-TIMINGS. This is an example of one way in which KBKmacs can use the information it 
maintains about die structure of a program in order to assist a programmer in understanding the program. 
The knowledge-based command "Comment" (here triggered by die abbreviated command s-;) creates a 
summary comment describing a program and inserts tliis comment into die editor buffer. 

The comment is in the form of an outline. The first line specifics die top level cliche in the program. The 
subsequent entries describe how die major roles in this cliche have been filled, flic comment is constructed 
based on the cliches that were used to create the program, ’flic DESCRIBED-ROLES declaration from the 
definition of the top level cliche specifics which roles to describe and what order to describe them in. 

Kacli role is described in one of four ways. If the role has been removed, then it is reported as missing 
(c.g., the column-headings). If the role is filled by a cliche dicn this cliche is named (c.g., list-enumeration). 
Further, a brief one line description showing how the roles of this sub-cliche arc filled in is included. (This 
description is generated from die COMMENT declaration from the definition of the sub-cliche.) If a role is filled 
with non-clichcd computation which is short enough to fit on a single line then the corresponding code is 
displayed (c.g., the title); otherwise, die computation is simply reported to be idiosyncratic (c.g., the 
summary). The individual lines of die comment are written in the same style as the knowledge-based 
commands. In particular, variable names and code fragments are rendered in upper case. 

Evaluating the Comment Produced 

The comment generation capability currently supported by KBKmacs is only intended as an illustration of 
the kind of comment that could be produced. There arc many other kinds of comments containing either 
more or less information that could just as well have been produced. For example, KBKmacs could easily 
include a description of the inputs and outputs of the program in the comment. The form of comment shown 
was chosen because it contains a significant amount of high level information which is not explicit in the 
program code. As a result, it should be of genuine assistance to a person who is trying to understand the 
program. 

A key feature of the comment is that, since it is generated from the knowledge underlying the program, it 
is guaranteed to be complete and correct. In contrast, much of die program documentation one typically 
encounters has been rendered obsolete by subsequent program modifications. Although it is not currently 
supported, it would be relatively easy for KBKmacs to generate a new program comment every time a 
program was modified. Using this approach it might be possible for such commentary to augment (or even 
partially replace) program code as the means of communication between KBKmacs and the programmer. 

The Knowledge-Based Command "Highlight" 

Another way in which KBKmacs can assist a programmer in understanding a program is to point out 
various parts of the program. In Screen 20. the programmer asks to see the summary role. The 
knowledge-based command "Highlight" uses standard editor highlighting (i.e.,underlining) in order to 
show the programmer a particular part of a program. In order to support this command, KBKmacs maintains 
a mapping which shows what pieces of the text for a program correspond to each role in die program. 
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<select> E 

s-; Comment the function REPORT-TIMINGS. <end> 
s-X Highlight the summary. <end> 


;;; The function REPORT-TIMINGS Is a simple-report. 

;;; The file-name Is "report.txt". 

;;; The title Is "Report of Reaction Timings (In msec.)". 

;;; The enumerator Is a list-enumeration. 

;;; It enumerates the elements of TIMINGS. 

;;; There are no column-headings. 

;;; The print-item Is a tabularlzed-prlnt-out. 

;;; It prints out (CAR LIST) In columns. 

;;; The summary Is an Idiosyncratic computation. 

(DEFUN REPORT-TIMINGS (TIMINGS) 

(WITH-OPEN-FILE (REPORT "report.txt" ’:0UT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(LIST TIMINGS) 

(PAGE 0) 

(TITLE "Report of Reaction Timings (in msec.)")) 

(FORMAT REPORT "~5%-66: <~A~>~2%~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 

(WHEN (> LINE 62) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT RFPORT "~|~%Page:-3D-50: <~A~>~17A~2%" PAGE TITLE DATE) 
(SETQ LINE 3)) 

(WHEN (> (CHARPOS REPORT) 65) 

(FORMAT REPORT "~&") 

(SETQ LINE (+ LINE l))) 

(FORMAT REPORT "~10:D" (CAR LIST)) 

(SETQ LIST (CDR LIST))) 

^FORMAT REPORT "~2&~(mean:~8:0 (deviation: ~:D)~)" 

_ (MEAN-AND-DEVIAT ION TIMINGS)) ))) 


KBEmacs (LISP) <KBE.DEMO>TIMINGS.LISP 


Screen 20 
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Defining a Cliche 

In tiic remainder of the 1 asp scenario, die programmer defines a new cliche. This part of the scenario 
seeks to demonstrate two main points. First, defining a new cliche is no more difficult than defining a 
program. It is expected that programmers will define their own idiosyncratic cliches as readily as they define 
new subroutines. As with subroutines, the key difficulty resides in deciding exactly what cliches should be 
defined. 

Second, this part of the scenario demonstrates a third style of program construction — the lateral 
modification of almost-right cliches. In this style the programmer begins with a cliche which embodies much 
of what he wants and then fixes it up in order to get exactly what lie wants. Any real programming situation 
involves a combination of the top-down, bottom-up, and lateral modification styles of implementation. 

Directions for a Human Assistant 

In the scenario below, the programmer defines a new cliche report-with-subheadings. This cliche is 
similar to the cliche simple-report except that it assumes that the items to be reported arc divided into groups 
and makes it possible for the user to specify the printing of a subheading before each group. The directions 
shown below illustrate how an expert programmer might tell an assistant programmer what to do. These 
directions are couched in terms of lateral modification. They rely on an understanding of the terms "simple 
report" and "group detector" (sec the description of Screen 22 for a discussion of the latter term). 

Define a cliche report-with-subheadings. This cliche should have all of the 
features of a simple-report. In addition, the cliche should have two new 
roles: the group-test and the subheading. The group-test should be the test 
of a group detector. The subheading role should be used to print a 
subheading each time the start of a new group is detected. 


The Knowledge-Based Command "Copy" 

In order to define die cliche report-with-subheadings, the programmer reads in the file of cliches and then 
uses die knowledge-based command "Define" in order to create an initial empty definition. He then uses 
the knowledge-based command "Copy" in order to create a copy of the definition of the cliche simple-report 
(see Screen 21). The difference between the knowledge-based commands "Copy" and "Insert" is diat while 
"Insert" creates an instance of a cliche, "Copy" copies over all of the commentary about a cliche, creating an 
analogous cliche definition. The knowledge-based command "Copy" is provided specifically in order to 
facilitate the definition of cliches which are similar to predefined cliches. 



Defining a Cliche 


65 


c-x c-F Find file <KBE,DEMO>CLICHE-LIBRARY.LISP 
s-X Define a cliche REPORT-WITH-SUBHEADINGS. <end> 

s-X Copy the cliche SIMPLE-REPORT to the cliche REPORT-WITH-SUBHEADINGS. <end> 
cursor motion 


(DEFINE-CL ICHE REPORT-WITH-SUBHEADINGS 

( PRIMARY-ROLES (ENUMERATOR PRINT-ITEM SUMMARY) 

DESCRIBED-ROLES (FILE-NAME TITLE ENUMERATOR COLUMN-HEADINGS 
PRINT-ITEM SUMMARY) 

COMMENT "prints a report of {the Input structure of the enumerator}" 
CONSTRAINTS 

((DEFAULT {the file-name } "report.txt") 

(DERIVED {the line-limit} 

(- 65 

(SIZE-IN-LINES {the print-item }) 

(SIZE-IN-LINES {the summary}))))) 

(WITH-OPEN-FILE (REPORT {the file-name} ’:OUT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(PAGE 0) 

(TITLE {the title}) 

(DATA {the Input structure of the enumerator})) 

(FORMAT REPORT "~5%~66 : <~A~>~2%~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF ({the empty-test of the enumerator} DATA) (RETURN)) 

(WHEN (> LINE {the line-limit}) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT "~\~%Page:~3D~50: <~A~>~17A~Z%" PAGE TITLE DATE) 
(SETQ LINE 3) 

({the column-headings} {REPORT, modified} {LINE, modified})) 
QCt/ie print-item} {REPORT, modified} 

{LINE, modified} 

({the element-accessor of the enumerator} DATA)) 
(SETQ DATA ({the step of the enumerator} DATA))) 

({the summary} {REPORT, modified})))) 


KBEmacs (LISP) <KBE.DEMO>CLICHE-LIBRARY.LISP 
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Tlie Cliche Group-detector 

Before continuing with the definition of the cliche report-with-subheadings it is important to take a look at 
the cliche group-detector (shown below'). The purpose of this cliche is to identify groups in a series of items. 
For example consider the scries of digits 2 2 8 6 6 6. This scries is composed of groups of repeated digits 
(i.c., two 2s, one 8, and three 6s). The cliche group-detector could be used to signal the start of each group in 
the scries. 

The cliche group-detector has three roles: the input item, the test, and the output flag. The input item is 
the scries to be tested. The test is a function which determines when a new group is beginning. The cliche 
assumes that the start of a new group can be detected by comparing the current item with its predecessor. The 
test is intended to be a function of two arguments (the prior item and the current item) which returns T if and 
only if the current item is the start of a new group. The output flag is a scries of truth values specifying 
whether or not the corresponding items start new' groups. For example, if the input items were the scries of 
digits shown above and the test were die function =, then die output flag would be die scries 
T NIL T T NIL NIL. 

(DEFINE-CLICHE GROUP-DETECTOR 
(PRIMARY-ROLES (ITEM TEST) 

DESCRIBED-ROLES (ITEM TEST) 

COMMENT "locates the beginning of each group in {the item}") 

(LET* ((DATUM) 

(UNIQUE-VALUE (NCONS NIL)) 

(PREVIOUS UNIQUE-VALUE)) 

(LOOP DO 

(SETQ DATUM {the input item}) 

{(OR (EQ PREVIOUS UNIQUE-VALUE) ({the test} PREVIOUS DATUM)), 
the output flag} 

(SETQ PREVIOUS DATUM)))) 

The main complexity in the cliche group-detector comes from handling the boundary conditions at the 
first input item. The problem is diat this item has no predecessor. It is however, guaranteed to begin a new 
group — die first group. To deal with this, the cliche initializes die variable PREVIOUS with a unique value — 
one which cannot be EQ to any other data item. By comparing die value of the variable with this unique 
value, the cliche is able to insure that the test is only applied to items after the first one. In Lisp, this is an 
efficient and compact algorithm. 

One way to look at the cliche group-detector is as an abstraction shift which connects die simple idea of a 
function which detects groups by comparing successive items in a series into an algorithm which actually 
works. The key virtue of die cliche is that it relieves the programmer from having to worry about the detailed 
code — which is, in truth, rather obscure. 

Note that it is tempting to simplify the code by initializing die variable PREVIOUS to NIL. However, this 
would introduce a hidden bug which would appear only when one of the data items was NIL. This is an 
example of the fact that one has to be careful when defining a cliche. However, this carefulness pays off in 
enhanced program reliability when die cliche is used. 

Lateral Modification 

The difference between die cliches simple-report and report-with-subheadings is that before printing out 
each item, the latter cliche must potentially print out a subheading. In order to introduce diis added 
computation, die programmer first positions die editing cursor before the print-item role (sec Screen 21), and 
then inserts a group-detector (sec Screen 22). The code produced is another example of how a simple 
command to KBKmacs can cause a number of non-local modifications to a program. Note in particular diat 
the insertion of the cliche group-detector forces the introduction of a variable DATUM to hold the value of die 
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s-X Insert a group-detector of the element-accessor. <end> 


(DEFINE-CLICHE REPORT-WITH-SUBHEADINGS 

(PRIMARY-ROLES (ENUMERATOR PRINT-ITEM SUMMARY) 

DESCRIBED-ROLES (FILE-NAME TITLE ENUMERATOR COLUMN-HEADINGS 
PRINT-ITEM SUMMARY) 

COMMENT "prints a report of {the input structure of the enumerator}" 
CONSTRAINTS 

((DEFAULT {the file-name} "report.txt") 

(DERIVED {the line-limit} 

(- 65 

(SIZE-IN-LINES {the print-item}) 

(SIZE-IN-LINES {the summary}))))) 

(WITH-OPEN-FILE (REPORT {the file-name} ’:OUT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(DATUM) 

(LINE 66) 

(PAGE 0) 

( UNIQUE-VALUE (NCONS NIL)) 

(PREVIOUS UNIQUE-VALUE) 

(TITLE {the title}) 

(DATA {the input structure of the enumerator})) 

(FORMAT REPORT "~5%~66: <~A~>~2%~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF ({the empty-test of the enumerator} DATA) (RETURN)) 

OSf7(? DATUM ({the element-accessor of the enumerator } DATA)) 

(WHEN (> LINE {the line-limit}) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT "~|~%Page:-3D-50: <~A~>~17A~2%" PAGE TITLE DATE) 
(SETQ LINE 3) 

({the column-headings} {REPORT, modified} {LINE, modified})) 
({the print-item} {REPORT, modified} {LINE, modified} DATUM) 

{(OR (EQ PREVIOUS UNIQUE-VALUE) ({the test } PREVIOUS DATUM)), 
the output flag } 

(SETQ DATA ({the step of the enumerator} DATA)) 

(SETQ PREVIOUS DATUM)) 

({the summary} {REPORT, modified})))) 


KBEmacs (LISP) <KBE.DEMO>CLICHE-LIBRARY.LISP 


Screen 22 
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current element being enumerated. 

The cliche simple-report is being used in a completely different way in this part of the scenario than the 
way it was used in the implementation of the program REPORT-TIMINGS. When implementing 
REPORT-TIMINGS, the cliche was used because the desired program was an instance of this cliche. Here, the 
cliche is used merely because it contains a lot of structure which is desired and dicrcforc it is convenient to use 
die cliche as a starting point. It should be noted, however, that once the group-detector has been introduced, 
the code is no longer an instance of a simple-report and the programmer must accept full responsibility for 
deciding what parts of the cliche are still appropriate. 

An interesting aspect of Screen 22 is that the group-detector docs not end up before the print-item. This is 
another example of the limitations of the ability of KBHmacs to generate acsdictic program code. KBHmacs 
orders the statements in a program solely based on data flow and control flow constraints. In Screen 22, there 
is no data flow or control flow reason why the group-detector must be placed either before or after the 
print-item. In such situations, die statement order chosen by KBHmacs is essentially arbitrary. 
Unfortunately, KBHmacs is not able to recognize the cursor position in Screen 21 as, in effect, a comment 
signaling the fact that the programmer intends die group-detector to appear in diat position. Rather, 
KBHmacs only uses die cursor position to determine the data flow and control flow environment of the 
insertion. 

inserting the Subheading Role 

In Screen 23, the programmer uses direct editing in order to specify the printing of subheadings. He 
creates a role corresponding to die printing of subheadings by simply typing in {...} annotation describing 
die role. Like die print-item, diis role is expected to side-effect die REPORT file, update the line number, and 
use the current element being enumerated. 

In order to specify when the subheadings should be printed, die programmer uses a conditional predicated 
on die output of the group-detector. At first glance it may seem odd diat the programmer can refer to the 
group-detector even though die conditional precedes the group-detector. This is allowed in order to give the 
programmer added flexibility. The programmer can refer to a following quantity unless die data flow 
specifies that the quantity is required to follow. 
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direct editing 


(DEFINE-CLICHE REPORT-WITH-SUBHEADINGS 

(PRIMARY-ROLES (ENUMERATOR PRINT-ITEM SUMMARY) 

DESCRIBED-ROLES (FILE-NAME TITLE ENUMERATOR COLUMN-HEADINGS 
PRINT-ITEM SUMMARY) 

COMMENT "prints a report of {the input structure of the enumerator}" 
CONSTRAINTS 

((DEFAULT {the file-name} "report.txt") 

(DERIVED {the line-limit} 

(- 65 

(SIZE-IN-LINES {the print-item}) 

(SIZE-IN-LINES {the summary}))))) 

(WITH-OPEN-FILE (REPORT {the file-name} ':OUT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(DATUM) 

(LINE 66) 

(PAGE 0) 

(UNIQUE-VALUE (NCONS NIL)) 

(PREVIOUS UNIQUE-VALUE) 

(TITLE {the title}) 

(DATA {the input structure of the enumerator})) 

(FORMAT REPORT "~5%~66: <~A~>~2%~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF ({the empty-test of the enumerator} DATA) (RETURN)) 

(SETQ DATUM ({the element-accessor of the enumerator} DATA)) 

(WHEN (> LINE {the line-limit}) 

(SETQ PAGE (+ PAGE 1)) 

(FORMAT REPORT "~|~%Page:~3D~50: <~A~>~17A~27o” PAGE TITLE DATE) 
(SETQ LINE 3) 

({the column-headings} {REPORT, modified} {LINE, modified})) 

(IF {a use of the flag } 

({the subheading) {REPORT, modified) {LINE, modified) DATUM ))Q 
({the print-item} {REPORT, modified} {LINE, modified} DATUM) 

{(OR (EQ PREVIOUS UNIQUE-VALUE) ({the test} PREVIOUS DATUM)), 
the output flag} 

(SETQ DATA ({the step of the enumerator} DATA)) 

(SETQ PREVIOUS DATUM)) 

({the summary} {REPORT, modified})))) 


KBEmacs (LISP) <KBE . DEMOKLICHE-LIBRARY. LISP 
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Lisp Scenario 




The Knowledge-Based Command "Aaalyza" 


The knowledge-based command "Analyze" tells KBKmacsto analyze the effects of direct editing done by 
the programmer without initiating any other action, f a Screen 24, this causes the annotation referring to the 
group-detector to be replaced by the corresponding code. Note &at the group-detector » now positioned 
before the print-item because it is required to be there by die data flow. (The control flow in die conditional 


forces the group-detector to 1 
file forces die subheading to be before the print-hem.) 
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s-A Analyze the cliche REPORT-WITH-SUBHEADINGS. <end> 


(DEFINE-CLICHE REPORT-WITH-SUBHEADINGS 

(PRIMARY-ROLES (ENUMERATOR PRINT-ITEM SUMMARY) 

DESCRIBED-ROLES (FILE-NAME TITLE ENUMERATOR COLUMN-HEADINGS 
PRINT-ITEM SUMMARY) 

COMMENT "prints a report of {the input structure of the enumerator}" 
CONSTRAINTS 

((DEFAULT {the file-name} "report.txt") 

(DERIVED {the line-limit} 

(- 65 

(SIZE-IN-LINES {the print-item}) 

(SIZE-IN-LINES {the summary}))))) 

(WITH-OPEN-FILE (REPORT {the file-name} ’:OUT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(DATUM) 

(LINE 66) 

(PAGE 0) 

(UNIQUE-VALUE (NCONS NIL)) 

(PREVIOUS UNIQUE-VALUE) 

(TITLE {the title}) 

(DATA {the input structure of the enumerator})) 

(FORMAT REPORT "~57.~66: <~A~>~27o~66: <~A~>~7o" TITLE DATE) 

(LOOP DO 

(IF ({the empty-test of the enumerator} DATA) (RETURN)) 

(SETQ DATUM ({the element-accessor of the enumerator} DATA)) 

(WHEN (> LINE {the line-limit}) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT |~%Page:-3D-50: <~A~>~17A~2%" PAGE TITLE DATE) 
(SETQ LINE 3) 

({the column-headings} {REPORT, modified} {LINE, modified})) 

(IF 0(OR (EQ PREVIOUS UNIQUE-VALUE) ({the test } PREVIOUS DATUM)), 
the output flag } 

({the subheading} {REPORT, modified} {LINE, modified} DATUM)) 
({the print-item} {REPORT, modified} {LINE, modified} DATUM) 

(SETQ DATA ({the step of the enumerator} DATA)) 

(SETQ PREVIOUS DATUM)) 

({the summary} {REPORT, modified})))) 


KBEmacs (LISP) <KBE.DEMO>CLICHE-LIBRARY.LISP 


Screen 24 
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Editing the Cliche Declarations 

In Screen 25, the programmer finishes the cliche report-with-subheadings by appropriately updating the 
declarations in the cliche definition. First, he renames the test of the group-detector to be die role group-test. 
He then specifics that the subheading and group-test should be described roles. Next, he updates die 
constraint deriving the line-limit so diat it accounts for the subheading as well as the print-item and the 
summary. Finally, he deletes die commentary describing the flag output of die group-detector because he 
docs not want diis to be a role of the cliche report-with-subheadings. 

After finishing the cliche, the programmer uses die knowledge-based command "Finish” in order to 
signal this fact to KBKmacs. When operating on a cliche definition, the knowledge-based command 
"Finish" docs not complain about unfilled roles, or remove output role annotation because these things arc 
an essential part of cliches. 

Finally, the programmer uses the standard Kmacs command c-shift-C (compile definition) in order to 
compile die cliche. The act of compiling a cliche makes it available to KBKmacs. From diis point on, the 
programmer can use die cliche report-with-subheadings just like any other cliche. 

Evaluating the Commands Used 

A comparison of die commands which were used in order to implement die cliche 
report-with-subheadings i.e.: 

Define a cliche REPORT-WITH-SUBHEADINGS. 

Copy to the cliche REPORT-WITH-SUBHEADINGS the cliche SIMPLE-REPORT. 

Insert a group-detector of the element-accessor. 
direct editing 

with the directions that might have been given to a human assistant i.e.: 

Define a cliche report-with-subheadings. This cliche should have all of the 
features of a simple-report. In addition, the cliche should have two new 
roles: the group-test and the subheading. The group-test should be the test 
of a group detector. The subheading role should be used to print a 
subheading each time the start of a new group is detected. 

shows diat diey have much of die same character. However, in this case, the knowledge-based commands 
only support the top level parts of die directions. The lower level changes arc done by means of direct 
editing. 
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direct editing 

s-<end> Finish editing the cliche REPORT-WITH-SUBHEADINGS. <end> 
c-shift-C Compiling REPORT-WITH-SUBHEADINGS 


(DEFINE-CLICHE REPORT-WITH-SUBHEADINGS 

(PRIMARY-ROLES (ENUMERATOR PRINT-ITEM SUMMARY) 

DESCRIBED-ROLES (FILE-NAME TITLE ENUMERATOR COLUMN-HEADINGS 
PRINT-ITEM SUBHEADING GROUP-TEST SUMMARY) 

COMMENT "prints a report of {the input structure of the enumerator}" 
CONSTRAINTS 

((DEFAULT {the file-name} "report.txt") 

(DERIVED {the line-limit} 

(- 65 

(SIZE-IN-LINES {the print-item}) 

(SIZE-IN-LINES {the summary}) 

( SIZE-IN-LINES {the subheading}))))) 

(WITH-OPEN-FILE (REPORT {the file-name} ’:OUT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(DATUM) 

(LINE 66) 

(PAGE 0) 

(UNIQUE-VALUE (NCONS NIL)) 

(PREVIOUS UNIQUE-VALUE) 

(TITLE {the title}) 

(DATA {the input structure of the enumerator})) 

(FORMAT REPORT "~5%~66: <~A~>~2%~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF ({the empty-test of the enumerator} DATA) (RETURN)) 

(SETQ DATUM ({the element-accessor of the enumerator} DATA)) 

(WHEN (> LINE {the line-limit}) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT |-"/.Page :-3D-50 : <~A~>~17A~27o" PAGE TITLE DATE) 
(SETQ LINE 3) 

({the column-headings} {REPORT, modified} {LINE, modified})) 

(IF D)R (F.Q PREVIOUS UNIQUE-VALUE) 

({the group-test } PREVIOUS DATUM)) 

({the subheading} {REPORT, modified} {LINE, modified} DATUM)) 
({the print-item} {REPORT, modified} {LINE, modified} DATUM) 

(SETQ DATA ({the step of the enumerator} DATA)) 

(SETQ PREVIOUS DATUM)) 

({the summary} {REPORT, modified})))) 


KBEmacs (LISP) <KBF. ,DEMO>CLICHE-LIBRARY. LISP 


Screen 25 
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III-Ada Scenario 


An important aspect of KBHmacs is that both the ideas behind the system and the actual implementation 
of the system are substantially programming language independent. As will be discussed in Chapter V, to 
extend KBHmacs so that it can be used to operate on a given programming language, one need only do two 
tilings: give die system an understanding of the syntax and semantics of the language in question, and provide 
a library of cliches which are appropriate for writing programs in that language. This chapter demonstrates 
the language independence of KBHmacs by showing the system being used to construct several Ada 
programs. Although diis chapter docs not assume that die reader knows the details of Ada, it docs assume a 
familiarity with Algol-like languages in general. The reference manual [Ada 83] describes Ada in detail. 

Another purpose of this chapter is to show that KBHmacs can be used to operate on programs of realistic 
size and complexity. Harder scenarios (whether proposed [Rich Shrobc 78] or real [Waters 82a]) have focused 
on simple programs only 10 to 20 lines long. Although this was done primarily in die interest of brevity, it 
naturally brought up die question of whether die system could be applied to large programs. The last section 
of diis chapter shows die construction of a 110 line Ada program. It could be argued that programs should 
not be larger than this. 

The scenario in diis chapter is also used to demonstrate a number of points which are brought out better 
by die language Ada dian by Lisp. For example, unlike Lisp, data declarations are an important part of any 
Ada program. This can be a source of programmer frustration because, though much of die information in 
data declarations is redundant with the rest of die program, it must all be independently specified. This is an 
example of a task for which KBHmacs is ideally suited. KBHmacs can automatically generate most of the data 
declarations in a typical program. 


Ada Cliches 

In the scenario below, as in the Lisp scenario in the last chapter, cliches are central to die communication 
between the programmer and KBHmacs. This section presents several Ada cliches and contrasts them with 
their Lisp counterparts. (Appendix A presents die complete Ada cliche library.) 

Lisp cliches and Ada cliches differ in analogy with the way that the languages Lisp and Ada differ. The 
primary difference is merely syntactic. Many corresponding cliches in the two languages are, apart from 
syntax, identical. However, there are a number of semantic differences between the languages, and between 
their run time environments, which can lead to significant differences between corresponding cliches. 
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A Simple Cliche 

Consider the simple cliche squaring (reproduced below) which was used as an example in the last chapter. 

(DEFINE-CLICHE SQUARING 

(PRIMARY-ROLES (NUMBER) 

DESCRIBED-ROLES (NUMBER) 

COMMENT "computes the square of (the number}") 

( A {the input number} 2)) 

This is an example of a cliche which is semantically identical in Ada. If expressed in Ada syntax, the cliche 
would appear as follows. (This report uses the standard Ada orthographic convention of rendering all, and 
only, reserved words in lower ease.) 

cliche SQUARING is 

primary roles NUMBER; 
described roles NUMBER; 

comment "computes the square of {the number}"; 
begin 

return {the input number}*»2; 
end SQUARING; 

In order to support the definition of cliches, Ada syntax is extended in two ways. First, {...} annotation 
is supported in analogy with the way it is supported in Lisp. This annotation can either appear as a simple 
quantity (c.g., {the input number}) or in the form of a function call (e.g., {the operation} (DATA)). 

Second, a new defining form "cl iche" is introduced in analogy with an Ada procedure definition. As can 
be seen in the example above, this new form is simply a transliteration of the Lisp form DEFINE-CLICHE into 
an Ada-like syntax. The body is the same as the body of an Ada procedure definition. 

The Cliche Filc_Enunieration 

As a more interesting example, consider the cliche file.enumeration (shown on the next page). (In Ada, 
identifiers cannot contain the character "-".) The cliche file_cnumcration reads the records in a file, 
enumerating them sequentially. ( The Annotation "{}" is used to represent things which must be present for 
syntactic completeness, but which are not important enough to be given names as explicit roles — e.g., the 
data types of the variables FILE and DATA_RECORD.) 

Like the cliche list-enumeration (discussed in the last chapter), the cliche filc_enumeration is a member of 
the general class of cliches known as enumerators. As such, it has the same basic structure and the same basic 
roles. The input role is the file to be enumerated. The cmpty_tcst (END_OF_FILE) tests to sec whether all of 
the records in the file have been read. The procedure READ corresponds to both the clement_accessor and the 
step. (Stepping occurs as a side-effect of the procedure READ. In addition to reading a record from a file and 
returning it in the variable which is its second argument (here DATA_RECORD), the procedure READ moves 
from one record to the next.) The output role data_rccord is the scries of records enumerated. (The name 
record cannot be used because it is a reserved word in Ada). 

In addition to enumerating the records in the file, the cliche filc_enumoration takes care of opening and 
closing the file. 1'hc exception handlers at the end of the begin block specify what to do if some interrupt 
occurs during the execution of the block. They specify that no matter what happens, the file should be closed. 
(This is equivalent to the support provided by the Lisp function WITH-OPEN-FILE.) In addition, the 
exception handlers specify that if the exception is caused accessing a file then an error message should be 
printed and the exception suppressed; otherwise, the exception is passed on to be handled at a higher level. 

As discussed in the last chapter, an important aspect of cliches is that they must be designed to fit together. 
In this chapter it is assumed that a programming organization exists which is producing a number of programs 
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which interact with a data base represented as a group of files. It is further assumed that a set of conventions 
has been established for how these programs should be written. Three of these conventions arc evident in the 
cliche filc_cnumcration. 

cliche FILE_ENUMERATION is 
primary roles FILE; 
described roles FILE; 

comment "enumerates the records in (the file}"; 
constraints 

RENAME(”DATA_RECORD", SINGULAR_FORM((the file})); 

DEFAULT((the file_name}, CORRESPONDING_FILE_NAME({the file})); 
end constraints; 

FILE: {}; 

DATA_RECORD: {}; 
begin 

FILE := {the input file}; 

OPEN (FILE , IN_FIL E , {the filename}); 

while not {END_OF_FILE, the empty_test}(FILE) loop 

{{READ, the element_accessor}, the step}(FILE, DATA_RECORD); 

{DATA_RECORD, the output data_record}; 
end loop; 

CLOSE(FILE); 

exception 

when DEVICE_ERROR | END_ERR0R | NAME_ERROR | STATUS_ERROR => 

CLOSE(FILE); PUT("Data Base Inconsistent"); 
when others => CLOSE(FILE); raise; 
end FILE_ENUMERATION; 

The strong typing in Ada requires that there be different I/O functions for each type of file. Here it is 
assumed that overloading will be used so that these functions can always be referred to by their standard 
names (c.g. OPEN, CLOSE, READ, etc.). 

Another convention revolves around the handling of exceptions. It is assumed that each program written 
will be complete in that it will explicitly check for every kind of abnormal condition which could occur. 
However, programs arc allowed to assume that the data base files arc in a consistent state. For example, while 
the cliche file_cnumeration explicitly checks for the end of the file being enumerated, it docs not check that 
the file actually exists before opening it. Rather, it is assumed that the cliche will only be used to operate on 
files which arc known to exist when the data base is consistent. In order to deal with the fact that in 
extraordinary circumstances the data base might not be in a consistent suite, a single blanket exception 
handler (shown above) is included as part of the outermost block of every program that accesses any files. 

The first constraint specified as part of the cliche file_cnumeration suggests a name to use for the variable 
holding the records being enumerated. The name chosen reflects a convention governing the way files are 
named. Suppose that a file contains addresses. It is assumed that the variable containing the file object will 
be given the plural name ADDRESSES and that if a variable is needed to hold a record from the file it will be 
given the singular name ADDRESS, ('lhis convention is not a hard and fast one, but rather a stylistic 
suggestion.) 

The constraint RENAME is essentially textual in nature. It replaces all instances of its first parameter with its 
second parameter. For example, if the file were specified to be the variable ADDRESSES then the identifier 
DATA_RECORD would be changed to ADDRESS. In addition to whole identifiers, parts of identifiers are also 
changed — if there were an identifier DATA_RECORD_KEY it would be changed to ADDRESS_KEY. It should be 
noted that renaming is convenient, but not a fundamental issue. It merely makes it easier for KBHmacs to 
generate aesthetic program code. 

The second constraint specified as part of the cliche filc_enumcration specifics a default value for the 
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filc.namc role. The function C0RRESP0NDING_FILE_NAME determines the appropriate external name to use 
when opening the file. It will be discussed further below. 

A Data Structure Cliche 

The cliches exhibited so far have all been control structure cliches. However, cliched data structures are 
just as important as clichcd computations. The cliche chain_filc_dcfinition captures the stereotyped aspects of 
the definition of a chain file. As used here, the term "chain file" refers to a file which contains records that are 
chained together in lists. The individual lists arc pointed to by records in some other file as shown in 
Figure 6. The figure shows a file of student records which point to chains of records corresponding to the 
various classes each student has taken. Note that the index value 0 is used to represent the end of a list. 

main file chain file 


STUDENT 

YEAR 

CLASSES 

IDX 

COURSE 

DATE 

GRADE 

NEXT 

H.B. Bonner 

88 

1 

1 

Phvsics 101 

Fall 84 

A 

2 

R.W. Hawk 

89 

0 

2 

Enalish 204 

Fall 84 

C 

0 

T.E. Johnson 

88 

3 

3 

Phvsics 101 

Fall 84 

C 

4 




4 

Enalish 2.04 

Fall 84 

C 

0 


Figure 6: An example of a chain file. 


The cliche chain_filc_dcfinition (shown on the next page) has two roles, the external name of the file being 
defined and the data fields in the chain record type. The body of the cliche has five parts. A variable is 
defined which holds a string containing the external name. A type is defined for index values pointing to the 
chain records. The type of the chain records themselves is then defined. The only predefined field in this 
record type is tine NEXT field which is used to point from one chain record in a list to the next. A package is 
created which defines the I/O functions which can operate on the chain file being defined. Lastly, a variable 
which can contain an instance of the chain file is defined. A renaming constraint is used to give aesthetic 
names to the identifiers in the cliche. The function FILE_NAME_R00T computes a reasonable name to use 
based on the external name for the file. 

A key feature of the cliche CHAIN_FILE_DEFINITI0N is that it relies on the generic package CHAINED_I0. 
(This generic package is defined as part of die package FUNCTIONS. The package FUNCTIONS contains the 
definition of a number of supporting functions used in die scenario below. The package is presented in 
Appendix II) 

The use of die generic package CHAINED_I0 is another example of die fact that KBEmacs tries to take 
advantage of all preexisting mechanisms. If it were possible, everything about die definition of a chain file 
would have been relegated to the generic package. Unfortunately this is not possible because, in Ada, the 
fields of a record are not allowed to be generic parameters. 
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with FUNCTIONS; 
use FUNCTIONS; 

cliche CHAIN_FILE_DEFINITION is 
primary roles FILE_NAME; 
described roles FILE_NAME; 

comment "defines a file named {the file_name} of chain records"; 
constraints 

RENAME( "DATA_RECORD", FILE_NAME_R00T ({the filename})); 
end constraints; 

DATA_RECORDS_NAME: constant STRING : = {the file_name}; 
subtype DATA_RECORD_INDEX_TYPE is INDEX_TYPE; 
type DATA_RECORD_TYPE is 
record 

{the data}; 

NEXT: DATA_RECORD_INDEX_TYPE; 
end record; 

package DATA_RECORD_IO is 

new CHAINED_IO(DATA_RECORD_TYPE, DATA_RECORD_INDEX_TYPE); 

DATA_RECORDS: DATA_REC0RD_I0.FILE_TYPE; 
end CHAIN_FILE_DEFINITION; 

A Suite of Cliches Operating on Files 

Cliches tend to be defined in tightly knit groups, or suites, which are intended to be used together. For 
example, this was true of the cliches simple-report, print-out, and tabularizcd-print-out used in the scenario in 
the last chapter. In this chapter, a number of cliches are used which revolve around the concept of a file of 
data records. There are cliches for defining a file (e.g., chain_filc_definition) and cliches for operating on a 
file (e.g., filc_cnumcration). 

An interesting aspect of the suite of cliches which operate on files is that, in addition to passively 
embodying a number of shared conventions, the cliches have constraints which actively share information. In 
particular, constraints in an Ada cliche which operates on a file often utilize information obtained from the 
definition of die file. For example, a constraint in the cliche filc_cnumcration uses the function 
CORRESPOND I NG_F I LE_NAME in order to determine how to refer to the external name of the file being 
enumerated. This function works by locating and analyzing die definition of die file being enumerated. It 
depends on the fact that the file was defined in accordance with one of die standard cliches for defining a file 
(e.g., chain_fi!c_definition). 



80 


Ada Scenario 


As a further example of how cliches which operate on files refer to the definition of those files, consider 
the cliche chain_cnumcration (shown below). This cliche specifics how to enumerate a chain of records in a 
chain file starting from a record in a main file. 

cliche CHAIN_ENUMERATION is 

primary roles MAIN_FILE, CHAIN_FILE, MAIN_FILE_KEY; 
described roles MAIN_FILE, CHAIN_FILE, MAIN_FILE_KEY; 
comment "enumerates the chain records in {the chain_file} starting 
from the header record indexed by {the main_file_key}"; 
constraints 

RENAME("MAIN_REC0RD", SINGULAR_F0RM({the main_fi1e>)); 

RENAME(”CHAIN_REC0RD", SINGULAR_FORM({the chain_fi1e>)); 

DEFAULT({the main_fi1e_name}, 

C0RRESP0NDING_FILE_NAME({the main_file})); 

DEFAULT({the chain_fi1e_name}, 

CORRESPONDING_FILE_NAME({the chain_fi1e})); 

DEFAULT({the main_fi1e_chain_field}, 

CHAIN_FIELD({the main_file}, {the chain_file})); 

DEFAULT({the step}, CHAIN_FIELD({the chain_file}, {the chain_fi1e>)); 
end constraints; 

CHAIN_FILE: {}; 

CHAIN_RECORD: {}; 

CHAIN_RECORD_INDEX: {}; 

MAIN_FILE: {}; 

MAIN_REC0RD: {}; 

procedure CLEAN_UP is 
begin 

CLOSE(CHAIN_FILE); CLOSE(MAIN_FILE); 
exception 

when STATUS_ERR0R => return; 
end CLEAN_UP; 
begin 

CHAIN_FILE := {the chain_file}; 

MAIN_FILE := {the main_file}; 

OPEN(CHAIN_FILE, IN_FILE, {the chain_file_name>); 

OPEN(MAIN_FILE, IN_FILE, {the main_file_name}); 

READ(MAIN_FILE, MAIN_REC0RD, {the input main_file_key}); 

CHAIN_RECORD_INDEX := MAIN_REC0RD.{the main_fi1e_chain_field>; 
while not {NULL_INDEX, the empty_test}(CHAIN_RECORD_INDEX) loop 

{READ, the element_accessor}(CHAIN_FILE, CHAIN_RECORD, CHAIN_RECORD_INDEX); 
{CHAIN_REC0RD, the output chain_record}; 

CHAIN_RECORD_INDEX := CHAIN_RECORD.{the step}; 
end loop; 

CLEANJJP; 

exception 

when DEVICE_ERR0R | END_ERR0R | NAME_ERR0R | STATUS_ERR0R => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end CHAIN_ENUMERATION; 
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The cliche chain_cnumcration is similar 10 the cliche filc_cnumcration. In particular, it shares the basic 
structure of an enumerator and the code associated with opening and closing files. (Note that since two files 
have to be closed, a helping function (CLEANJJP) is defined which closes both files. 1 his function contains an 
exception handler which deals with the situation where the files have not both been successfully opened.) 

However, die cliche file_cnumcration embodies an entirely different method for reading records from a 
file. Instead of reading records sequentially, the cliche uses explicit indices in order to read successive records 
in a chain. The input role is the key of a record in a main file which points to a chain of records in a chain file. 
The empty_tcst (NULL_INDEX) tests whether the end of die chain has been reached. The step steps from one 
record in die chain to the next by accessing die appropriate record field. The clemenLaccessor (READ) reads 
die appropriate records from the chain file. (When present, the third argument to the procedure READ 
specifics the index/key of die record to read.) The output role chain_rccord is the series of records in die 
chain. 

The most interesting aspect of the cliche chain_cnumcration is die set of constraints. The first four 
constraints arc analogous to the constraints in the cliche filc_cnumcration. The first two constraints generate 
mnemonic identifiers based on the names of the files to be operated on. The second two constraints look at 
die definition of these files in order to determine die appropriate external file name to use when opening the 
files. 

The last two constraints specify how to go from one record in the chain to the next. The function 
CHAIN_FIELD looks at the definitions of two files, and determines what field of the record in the first file 
contains an index into the second file. The next to last constraint specifies how to get the index of the first 
record in the chain from the main file record, l'hc last constraint specifies how to step from one chain record 
to the next. 
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The Cliche Simple.Kcport 

As a final example of an Ada cliche, consider the cliche siinplc_report (shown on the next page) in contrast 
to the Lisp cliche simple-report (reproduced below). These two cliches are a good example of the differences 
as well as the similarities between Ada cliches and Lisp cliches. The cliches have the same purpose and the 
same roles. The primary differences between the cliches arc purely syntactic. 

(DEFINE-CLICHE SIMPLE-REPORT 

(PRIMARY-ROLES (ENUMERATOR PRINT-ITEM SUMMARY) 

DESCRIBED-ROLES (FILE-NAME TITLE ENUMERATOR 

COLUMN-HEADINGS PRINT-ITEM SUMMARY) 

COMMENT "prints a report of (the input structure of the enumerator}" 
CONSTRAINTS 

((DEFAULT {the file-name} "report.txt") 

(DERIVED {the line-limit} 

(- 65 

(SIZE-IN-LINES {the print-item}) 

(SIZE-IN-LINES {the summary}))))) 

(WITH-OPEN-FILE (REPORT {the file-name} ’:OUT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(PAGE 0) 

(TITLE {the title}) 

(DATA {the input structure of the enumerator})) 

(FORMAT REPORT "~5%~66: <~A~>~2%~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF ({the empty-test of the enumerator} DATA) (RETURN)) 

(WHEN (> LINE {the line-limit}) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT "-/| ~°/«Page:-3D-50: <~A~>~17A~2%" PAGE TITLE DATE) 

(SETQ LINE 3) 

({the column-headings} {REPORT, modified} {LINE, modified})) 

({the print-item} {REPORT, modified} 

{LINE, modified} 

({the element-accessor of the enumerator} DATA)) 

(SETQ DATA ({the step of the enumerator} DATA))) 

({the summary} {REPORT, modified})))) 

However, there are a a number of semantic differences between the cliches. At a relatively trivial level, the 
textual I/O functions available in Ada are quite different then the ones in Lisp. In particular, there is no 
construct corresponding to the Lisp function FORMAT. Instead, sets of more primitive functions 
(c.g., NEW_LINE, SET_C0L, PUT, etc.) have to be used. At a similar level, the Lisp expression 
(TIME:PRINT-CURRENT-TIME NIL) is replaced by the similar (but not identical) Ada expression 
FORMAT_DATE( CLOCK). The function CLOCK which returns the current date and time is part of the standard 
Ada package CALENDAR. (In Ada calls on zero argument functions are identical in appearance to variable 
references.) The function FORMAT_DATE (defined in die package FUNCTIONS) converts a time into a character 
string. Other examples of minor semantic differences include the way exceptions are handled. 

At a more fundamental level, the cliches differ because Ada automatically keeps track of the line number 
and the page number in an output file. This leads to significant simplifications in the Ada cliche. However, it 
also leads to a slight complication. In order to trigger a page break after the title is printed, flic Ada cliche has 
to actually print out 60 blank lines in order to force the line counter to be incremented sufficiently. (Note 
that while the cliche simple-report follows the standard Lisp style of counting things starting with zero, Ada 
counts lines and pages starting with one.) 

A final difference between the two cliches is that the Ada cliche takes advantage of the strong typing 
enforced by Ada to add two powerful constraints. The function C0RRESP0NDING_PRINTING determines what 
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should be used to fill in the printjtcm role based on die type of object which is being enumerated. 1 lie 
function CORRESPOND I NG_HE AD INGS determines what headings should be used based on how the printjtcm 
is filled in. As a result, as soon as the type of object being enumerated is known, the printjtcm and then the 
columnjicadings can be automatically filled in. 

with CALENDAR, FUNCTIONS, TEXT_I0; 
use CALENDAR, FUNCTIONS, TEXT_I0; 
cliche SIMPLE_REPORT is 

primary roles ENUMERATOR, PRINT_ITEM, SUMMARY; 

described roles FILE_NAME, TITLE, ENUMERATOR, COLUMN_HEADINGS, 

PRINT_ITEM, SUMMARY; 

comment "prints a report of (the input structure of the enumerator}"; 
constraints 

DEFAULT({the file_name}, "report.txt"); 

DERIVED({the line_limit}, 

66-SIZE_IN_LINES((the print_item}) 

-SIZE_IN_LINES({the summary})); 

DEFAULT({the print_item}, CORRESPONDING_PRINTING((the enumerator})); 
DEFAULT({the column_headings}, 

CORRESPONDING_HEADINGS({the print_item})); 
end constraints; 

use INT_IO; 

CURRENT_DATE: constant STRING := FORMAT_DATE(CLOCK); 

DATA: {}; 

REPORT: TEXT_I0.FILE_TYPE; 

TITLE: STRINGO. .{}); 
procedure CLEAN_UP is 
begin 

SET J3UTPUT(STANDARD_OUTPUT); 

CLOSE(REPORT); 

exception 

when STATUS_ERROR => return; 
end CLEAN_UP; 
begin 

CREATE(REPORT, 0UT_FILE, {the filename}); 

DATA := {the input structure of the enumerator}; 

SET_0UTPUT(REPORT); 

TITLE := {the title}; 

NEW_LINE(4); SET_COL(20); PUT(CURRENT_DATE); NEW_LINE(2); 

SET_C0L(13); PUT(TITLE); NEW_LINE(60); 
while not {the empty_test of the enumerator}(DATA) loop 
if LINE > {the 1ine_limit} then 

NEW_PAGE; NEW_LINE; PUT(”Page: "); PUT(INTEGER(PAGE-l), 3); 

SET_COL(13); PUT(TITLE); 

SET_C0L(61); PUT(CURRENT„DATE); NEWJ_INE(2); 

{the column_headings}({CURRENT_OUTPUT, modified}); 
end if; 

{the print_item}({CURRENT_OUTPUT, modified}, 

{the element_accessor of the enumerator}(DATA)); 

DATA := {the step of the enumerator}(DATA); 
end loop; 

{the summary}; 

CLEANJJP; 

exception 

when DEVICE_ERROR | END._EP.R0R | NAME_ERROR | STATUS_ERROR => 

CLEANJJP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end SIMPLE_REPORT; 

The functions C0RRESP0NDING_PRINTING and CORRESPONDING_HEADINGS operate in one of two modes. 
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In general, cliches will have been defined which specify how to print out a given type of object in a report, 
and how to print the corresponding headings. If this is the case, then the functions 
CORRESPONDING_PRINTING and CORRESPONDING_HEADINGS merely retrieve the appropriate cliches. 
However, if there arc no such cliches, then die functions C0RRESP0NDING_PRINTING and 
C0RRESP0NDING_HEADINGS use a simple program generator in order to construct appropriate code based on 
the definition of the type of object in question. Both of these modes will be illustrated in the scenario below. 

Their differences not withstanding, the cliches simple-report and simplc_report arc most notable for dicir 
similarities. At a high enough level of abstraction, these similarities could be captured in a simple report 
program cliche which was semantically identical in Lisp and Ada. The cliches simple-report and 
simplc_rcport arc specializations of that abstract cliche. For example, the abstract cliche would require only 
diat some method be employed to keep track of line numbers and page numbers. The cliches simple-report 
and simple_rcport differ in the way this is achieved because Lisp and Ada differ in the support Uicy provide. 

Limits to the Power of Constraints 

The power of a constraint follows directly from the power of die functions used in the constraining 
expression. Constraining expressions can utilize any of the standard functions and operators in the target 
language, and the programmer is free to write any additional function he desires. As a result, there is 
essentially no dieorctical limitation to the computation which can be performed by a constraint expression. 

However, as a practical matter, die power of constraints is limited by the fact diat writing new functions to 
use in constraints is not particularly easy. A major problem is diat instances of {...} annotation in constraint 
expressions evaluate to direct pointers into the internal knowledge representation used by KBEmacs. This 
allows for great flexibility in what can be done by a constraint function, but requires that the writer of a 
constraint function be conversant in this internal representation. In contrast, when defining the body of a 
cliche the programmer need not understand anything other than die target language and {...} annotation. 

It is expected that die typical programmer will not write new functions to use in constraints, but radier will 
only write expressions which use predefined functions. As a result, the power of constraints is in effect 
limited by the constraint functions provided by the designer of the basic cliche library. 

Viewed from this perspective, the constraints in die cliches above fall into dirce categories. It is expected 
that simple constraints such as the one deriving the linejimit role in die cliche simp!c_rcport will be 
common. They depend only on standard functions and a few general purpose constraint functions such as 
SIZE_IN_LINES. There is no reason why such constraints could not be included as part of idiosyncratic 
cliches defined by programmers. 

The constraint functions C0RRESP0NDING_FILE_NAME and CHAIN_FIELD arc at an intermediate level of 
complexity. It is plausible diat such functions would be defined as part of defining a suite of cliches. It is 
even plausible diat a programmer might use these functions himself if lie defined a new cliche to add to the 
suite. However, die constraint functions arc of no use outside of the suite, and it is not plausible diat the 
typical programmer would define additional functions of this nature. 

Finally, the inclusion of constraint functions such as C0RRESP0NDING_PRINTING and 
C0RRESP0NDING_HEADINGS would seem to be an unusual event. Writing such a function not only requires a 
knowledge of the internal knowledge representation used by KBEmacs. but is difficult in its own right. They 
arc included in the cliches in diis scenario in order to demonstrate die full power of constraints and to 
illustrate the way constraints can be used as an interface between KBEmacs and other programming tools — 
e.g., in diis case a program generator. 
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In the first part of the scenario below, the programmer constructs an Ada package which defines a data 
base. In the second and third parts of the scenario, the programmer constructs two report programs which 
operate on this data base. Before beginning the definition of the data base package, it is useful to set the scene 
by describing the structure of die data base. 

The Data Base Used in the Scenario 

The data base contains information about repairs performed on instruments sold by a imaginary 
marketing company. The company sells and maintains these instalments but docs not build them. As 
illustrated in Figure 7, the data base is composed of four files: a file specifying the name and maker of each 
model of instrument the company sells, a file specifying the kinds of defects which can occur on each model, a 
file describing each individual unit sold, and a file describing each individual repair performed on any of 
these units. In addition to illustrating the structure of the data base. Figure 7 shows an example of the kind of 
data that might be placed in the data base. 

defects file models file 


KEY 

NAME 



MODEL KEY NAME 

MAKER 


0S-03 

Power suddIv 

thermistor blown 

0S1 0S1 Onal Sorter 

Perth Minina 

GA-11 

Control board cold 

1 solder 

ioi nt 

GA2 GA2 Gas Analvzer 

Benson 

Labs 

GA-32 

Cloaaed aas 

iniection Dort 


GA2 



units file 




repairs file 



KEY 

MODEL REPAIR 

IDX 

DATE 

DEFECT COMMENT 


NEXT 

OS1-271 

0S1 3 

1 

9/14/83 

GA- 

32 Probably caused bv humidity. 

0 

GA2-342 

GA2 4 

2 

1/23/85 

GA- 

11 Took two days to find. 


1 



3 

2/25/85 

OS- 

03 Sorter arm aot stuck. 


0 



4 

3/19/85 

GA- 

32 Port Diameter seems below specs 

. 2- 




Figure 7: The example data base. 




In the interest of brevity, the data base has been simplified to its barest essentials. A real data base would 
probably contain more files, and would certainly have many more fields in each record. However, these 
simplifications do not alter the basic nature of the scenario. Adding more files or fields would make the 
programs constructed in the scenario bigger, but it would not make them fundamentally any more complex. 
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Directions for a Human Assistant 

The Ada package to be constructed defines die four data base files discussed above. The following set of 
directions might be used to tell a person how to implement the package. 

Define a package MAINTENANCE_FILES which defines four files -- 
A keyed file "models.data" with a 3 character key and the fields: 

NAME: STRING(1..16); MAKER: ST RING(1. . 16). 

A keyed file "defects.data" with a 5 character key and the fields: 

NAME: STRINGfl..32): MODEL: key to the file of models. 

A chain file "repairs.data" with the fields: 

DATE: TIME; DEFECT: key to the file of defects; COMMENT: STRINGfl. .32). 

Each chain should be ordered by date with the most recent record first. 

A keyed file "units.data" with a 7 character key and the fields: 

MODEL: key to the file of models; REPAIR: index into the file of repairs. 

The above directions arc somewhat different in tone from the directions in the last chapter. Although they 
make use of high level terms such as "keyed file" and "chain file", they consist mostly of detailed 
specifications for the records in the file. This level of detail would seem unavoidable, since this is a situation 
where the details are important 

Switching to Ada Mode 

The scenario in this chapter is illustrated with screen images of exactly the same form as the ones in the 
last chapter. The first tiling the programmer docs in the scenario (see Screen 26) is to tell KBHmacs to use the 
language Ada (as opposed to Lisp which is the default). He does this by using the knowledge-based 
command "Use language". 

The Lisp Machine editor was extended by adding an Ada mode. As will be seen below, this mode enables 
several of the program oriented Emacs commands (c.g., m-. (goto definition) and c-shift-C (compile 
definition)) to operate properly on Ada programs. 

In order to shorten the scenario it is assumed that die programmer has already defined die files MODELS 
and DEFECTS. In Screen 26, die programmer reads in a file containing the partially implemented package. 
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s-X Use language ADA. <end> 

c-x c-F Find rile <KBE.DEMO>MAINTENANCE_FILES.ADA 
cursor motion 


with FUNCTIONS; 
use FUNCTIONS; 

package MAINTENANCE.FILES is 

MODELS_NAME: constant STRING := "models.data"; 
type MODEL_KEY_TYPE is STRING(l. .3); 
type MODEL_TYPE is 
record 

NAME: STRING(1. .16); 

MAKER: STRING(1. .16); 
end record; 

package M0DEL_I0 is new KEYED_IO(MODEL_TYPE. MODEL_KEY_TYPE); 
MODELS: M0DEL_I0.FILE_TYPE; 

DEFECTS_NAME: constant STRING := "defects.data"; 
type DEFECT_KEY_TYPE is STRING(l. .5); 
type DEFECT_TYPE is 
record 

NAME: STRING(1. .32); 

MODEL: MODEL_KEY_TYPE; 
end record; 

package DEFECT_I0 is new KEYED_IO(DEFECT_TYPE, DEFECT_KEY_TYPE); 
DEFECTS: DEFECT_I0.FILE_TYPE; 

□ 

end MAINTENANCE_FILES; 


KBEmacs (ADA) <KBE.DEMO>MAINTENANCE_FILES.ADA 


Screen 26 
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s-X Insert a chain_fi1e_definition of "repairs.data". <end> 


with FUNCTIONS; 
use FUNCTIONS; 

package MAINTENANCE_FILES is 

MODELS_NAME: constant STRING := "models.data"; 
type MODEL_KEY_TYPE is STRING(l..3); 
type MODEL_TYPE is 
record 

NAME: STRINGO. .16); 

MAKER: STRING(1. .16); 
end record; 

package M0DEL_I0 is new KEYED_I0(MODEL_TYPE, MODEL_KEY_TYPE); 

MODELS: MODEL_IO.FILE_TYPE; 

DEFECTS.NAME: constant STRING := "defects.data"; 
type DEFECT_KEY_TYPE is STRING(l. .5); 
type DEFECT_TYPE is 
record 

NAME: STRINGO. .32); 

MODEL: MODEL_KEY_TYPE; 
end record; 

package DEFECT_I0 is new KEYED_IO{DEFECT_TYPE, DEFECT_KEY_TYPE); 
DEFECTS: DEFECT_IO.FILE_TYPE; 

0E PA I RS^NAME : constant STRING :- "repairs.data”', 
subtype REPAIR_INDEX_TYPE Is INDEX_TYPE ; 
type REPAIR_TYPE Is 
record 

{the data}; 

NEXT: REPAIR_INDEX_TYPE; 
end record ; 

package REPAIR_I0 Is new CHAINED_IO(REPAIR_TYPE, REPAIR_INDEX_TYPE); 
REPAIRS: REPAIR_I0.FILE^TYPE; 
end MAINTENANCE_FILES; 


KBEmacs (ADA) <KBE.DEMO>MAINTENANCE_FILES.ADA 


Screen 27 
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s-N direct editing 


with FUNCTIONS; 
use FUNCTIONS; 

package MAINTENANCE_FILES is 

MODELS.NAME: constant STRING := "models.data"; 
type MODEL_KEY_TYPE is STRING!1. .3); 
type MODEL_TYPE is 
record 

NAME: STRING(1. .16); 

MAKER: STRING(1..16); 
end record; 

package MODEL_IO is new KEYED_IO(MODEL_TYPE, MODEL_KEY_TYPE); 

MODELS: MODEL_IO.FILE_TYPE; 

DEFECTS_NAME: constant STRING := "defects.data”; 
type DEFECT_KEY_TYPE is STRING!1..5); 
type DEFECT_TYPE is 
record 

NAME: STRING(1. .32); 

MODEL: MODEL_KEY_TYPE; 
end record; 

package DEFECT_I0 is new KEYED_IO(DEFECT_TYPE, DEFECT_KEY_TYPE); 
DEFECTS: DEFECT_I0.FILE_TYPE; 

REPAIRS_NAME: constant STRING := "repairs.data"; 
subtype REPAIR_INDEX_TYPE is INDEX_TYPE; 
type REPAIR_TYPE is 
record 

DATE: TIME ; 

DEFECT: DEFECT_KEY_TYPE ; 

COMMENT: STRING(1..3Z );D 
NEXT: REPAIR_INDEX_TYPE; 
end record; 

packaqe REPAIR_IO is new CHAINED_IO(REPAIR_TYPE, REPAIR_INDEX_TYPE); 
REPAIRS: REPAIR_IO.FILE_TYPE; 
end MAINTENANCE_FILES; 


KBEmacs (ADA) <KBE.DEMO>MAINTENANCE_FILES.ADA 


Screen 28 
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Analyzing Direct Kditing Done by the Programmer 

Having finished the definition of the file REPAIRS, the programmer tells Kill-macs that, for the moment, 
he is done with die package MAINTENANCE_FILES (sec Screen 29). KIM-macs then proceeds to analyze die 
editing done by the programmer. 

faking Care of Details 

A fundamental underpinning of Ada is the notion of a package which represents a group of functions or 
data structures or both. In general, related entities arc defined together in a package. For example, here the 
files in the date base arc being defined in a package named MAINTEIMANCE_F ILES. 

The names of die objects defined in a package arc local to diat package. In order to refer to these objects 
from another package one must do two things. First, one must specify diat die second package is to be 
compiled with the first package. (The first line of Screen 29 specifies that the package MAINTENANCE_FILES 
is to be compiled with die packages CALENDAR and FUNCTIONS.) Second, one must use the correct name for 
die object being referred to. The basic way to do this is to use a compound name of die form 
package_mime. object_tiame. For example, the second to last line of Screen 29 refers to die data type 
FILE_TYPE defined in the package REPAIR_I0 as REPAIR_I0.FILE_TYPE. Alternatively, one can specify 
that the second package uses die first package (see die second line of Screen 29) and then refer to the object 
by its simple name if this name is not ambiguous. For example, the third to last line of Screen 29 refers to the 
generic package CHAINED_I0 (which is defined in the package FUNCTIONS) directly. 

The above digression into the details of Ada is necessary in order to be able to understand an error made 
by the programmer in Screen 28. The programmer specified that the DATE field of a repair record had the 
data type TIME. Assumcdly, he intended to refer to die data type CALENDAR.TIME which is defined in the 
standard Ada package CALENDAR. However, he did not use the proper name to refer to it. (This sloppy 
reference is already present in fnc directions hypothesized above.) 

When KBEmacs analyzes the direct editing in Screen 28, it notices diat die unknown data type TIME is 
being referred to. KBEmacs then reasons diat since the only TIME data type defined anywhere is in the 
CALENDAR package, diis must be what the programmer is trying to refer to. In order to fix things up, 
KBHmacsadds die package CALENDAR to the "with" and "use" clauses of the package MAINTENANCE_FILES. 

This is a small example of an important ability KBEmacs attempts to demonstrate — taking care of details. 
This is particularly useful when operating on Ada, because Ada code contains a significant amount of 
redundancy which can be quite irritating to specify. (Note diat this redundancy is intended primarily for die 
benefit of readers and maintainors, not implementors.) KBHmacs attempts to automatically derive redundant 
information whenever possible so that programmers do not have to specify it explicitly. 

Recognizing a File Definition 

When analyzing the package in Screen 28, KBHmacs recognizes that a new data file (REPAIRS) is being 
defined. This recognition is done by a special purpose module of KBEmacs which notes the existence of die 
definition for later reference. In addition to noting die existence of die definition, KBEmacs automatically 
defines cliches which specify how to print out the records in the file. In die second line of die command area 
of Screen 29, KBEmacs informs the programmer that two cliches have been defined: print_rcpair which 
prints out a repair record, and print_repair_hcadings which prints out the appropriate column headings. The 
names of diese cliches arc stored as part of the information about die file so that dicy can be retrieved by die 
functions CORRESPONDING_PRINTING and CORRESPOND I NG_HEADINGS (used as constraints in die cliche 
simplc_rcport discussed above). 
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s-<end> Finish editing the package MAINTENANCEJILES. <end> 
The cliches PRINT_REPAIR_HEADINGS and PRINT_REPAIR defined. 


with fyLENDAR, FUNCTIONS; 
use CALENDAR, FUNCTIONS; 
package MAINTENANCE_FILES is 

MODELS_NAME: constant STRING := "models.data"; 
type MODEL_KEY_TYPE is STRING(1. .3); 

type MOOEI_TYPE is 

record 

NAME: STRING(1..16); 

MAKER: STRING(l. .16); 
end record; 

package MODEL.IO is new KEYED_IO(MODEI_TYPE, MODEL_KEY_TYPE); 

MODELS: MODEL_IO.FILE_TYPE; 

DEFECTS_NAME: constant STRING := "defects.data"; 
type DEFECT_KEY_TYPE is STRING(1..5); 
type DEFECT_TYPE is 
record 

NAME: STRING(1. .32); 

MODEL: MODEL_KEY_TYPE; 
end record; 

package DEFECT_I0 is new KEYED_IO(DEFECT_TYPE, DEFECT_KEY_TYPE); 
DEFECTS: DEFECT_IO.FILE_TYPE; 

REPAIRS_NAME: constant STRING := "repairs.data"; 
subtype REPAIR_INDEX_TYPE is INDEX_TYPE; 
type REPAIR_TYPE is 
record 

DATE: TIME; 

DEFECT: DEFECT_KEY_TYPE; 

COMMENT: STRING(l. .32); 

NEXT: REPAIR_INDEX_TYPE; 
end record; 

package REPAIR_I0 is new CHAINED_IO(REPAIR_TYPE, REPAIR_INDEX_TYPE); 
REPAIRS: REPAIR_IO.FILE_.TYPE; 
end MAINTENANCE_FILES; 


KBEmacs (ADA) <KBE.DEMO>MAINTENANCE_FILES.ADA 
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Automatically Defined Cliches 

In Screen 30, the programmer uses the standard editing command m-. (move to definition) in order to 
examine the cliches defined by KBKmacs. These cliches have been added to the file containing the library of 
Ada cliches. 

The cliches arc created by the same special purpose program generator used by the functions 
C0RRESP0NDING_PRINTING and C0RRESP0NDING_HEADINGS. In order to create code for printing a record, 
the generator calls itself recursively on each field of the record and combines the chunks of code produced. 
Kach field is printed in a standardized way based on its data type. Tor example, any field whose data type is 
CALENDAR.TIME is printed out using the function F0RMATJ3ATE. 

Actual cliche definitions arc created (as opposed to simply generating the corresponding code at the 
moment the user desires to print a repair) in order to allow the programmer to modify die cliches. This would 
be desirable even if die program generator were a great deal better dian die one used, because people differ 
widely in what diey consider to be the acsdictic way to print something. 
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m-. Edit definition of PRINT_REPAIR_HEADINGS 


0ft/) TEXT_IO; 
use TEXT_IO; 

cliche PRINT_REPAIR_HEADINGS Is 

comment "prints headings for printing repair records 

begin 

PUT(" Date Defect Comment"); 

NEW_LINE{2); 

end PRINT_REPAIR_HEADIN6S; 


with FUNCTIONS, TEXT_IO; 
use FUNCTIONS, TEXT_IO; 
cliche PRINT_REPAIR Is 
primary roles REPAIR; 
described roles REPAIR; 

comment "prints out the fields of {the repair}"; 

REPAIR : REPAIR_TYPE; 
begin 

REPAIR := {the Input repair }; 

PUT(FORMAT_DATE(REPAIR.DATE)); SET_C0L(13); PUT(REPAIR.DEFECT); 
SET_COL(20); PUT(REPAIR.COMMENT); NEU_LINE; 
end PRINT_REPAIR; 


KBEmacs (ADA) <KBE.DEMO>CLICHE-LIBRARY.ADA 
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The Cliche Read 

In Screen 31, the programmer modifies the cliche print_rcpair so that, in addition to printing out die key 
of die defect repaired, it reads the corresponding defect record and prints out die full name of the defect. The 
cliche print_rcpair_hcadings is modified analogously. 

In order to specify how the cliche print_rcpair is to be modified, the programmer makes an inline 
reference to the cliche read (sec Appendix A). 1 his cliche has two roles: the file to be read and the key of the 
desired record. This is a particularly nice example of the use of an embedded cliche reference for two reasons. 
First, notice that ".NAME" is used after die cliche annotation in order to select the NAME field of the record 
read just as if die annotation were a variable reference. Second, the annotation makes it possible to specify a 
read operation as if it were a function call even though die read operation is a procedure call. This enables the 
desired computation to be represented as a simple expression. 
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direct editing 


with TEXT.IO; 
use TEXT_I0; 

cliche PRINT_REPAIR_HEADINGS is 

comment "prints headings for printing repair records"; 

begin 

PUT(" Date Defect Description/ Comment"); NEW_LINE(2); 

end PRINT_REPAIR_HEADINGS; 


with FUNCTIONS, TEXT_IO; 
use FUNCTIONS, TEXT_I0; 
cliche PRINT_REPAIR is 
primary roles REPAIR; 
described roles REPAIR; 

comment "prints out the fields of {the repair}"; 

REPAIR: REPAIR_TYPE; 
begin 

REPAIR := {the input repair}; 

PUT(FORMAT_DATE(REPAIR.DATE)); SET_COL(l3); PUT(REPAIR.DEFECT); 
SET_C0L(20); PUT({a read of DEFECTS and (REPAIR.DEFECT)}.NAME); 
NEW_LINE; SET_C0L(22) ;OPUT(REPAIR.COMMENT); NEW_LINE; 
end PRINT_REPAIR; 


KBEmacs (ADA) <KBE . DEMOCLICHE-LIBRARY. ADA 
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Analyzing Direct Kditing Done by the Programmer 

Having finished the cliches print_rcpair and print_repair_headings, the programmer tells KB!-’macs that 
he is done with each of them. In addition, he compiles the cliches so that they are available for use 
(see Screen 32). 

When it analyzes die editing done by the programmer in Screen 31, KBHmacs replaces the embedded 
reference to the cliche read with die corresponding Ada code. As can be seen in Screen 32, this leads to a 
surprisingly large number of changes to the cliche print_rcpair. First of all, the package MAINTENANCE_FILES 
is added to die "with" and "use" clauses in order to render die reference to the identifier DEFECTS 
meaningful. In addition, a "use" clause for the package DEFECT_I0 is added to die declarations in order to 
make available die appropriate I/O procedures for the file DEFECTS. Next, KBF,macs adds a call on the 
procedure READ, a variable DEFECT to hold die record read, code which opens and closes die file DEFECTS, 
and code which handles any error conditions which might arise. 
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s-<end> Finish editing the cliche PRINT_REPAIR. <end> 
c-shift-C Compiling PRINT_REPAIR 

cursor motion 

s-<end> Finish editing the cliche PRINT_REPAIR_HEADINGS. <end> 
c-shift-C Compiling PRINT_REPAIR_HEADINGS _ 

Pith TEXT_10; 

use TEXT_I0; 

cliche PRINT_REPAIR_HEADINGS is 

comment "prints headings for printing repair records"; 

begin 

PUT(" Date Defect Description/Comment"); NEW_LINE(2); 
end PRINT_REPAIR_HEADINGS; 


with FUNCTIONS, HAINTENANCE_FILES, TEXT_I0; 
use FUNCTIONS, MAINTENANCE_FILES . TEXT_I0; 
cliche PRINT_REPAIR is 

primary roles REPAIR; 

described roles REPAIR; 

comment "prints out the fields of {the repair}"; 

use DEFECT_I0; 

DEFECT-. DEFECT_TYPE; 

REPAIR: REPAIR_TYPE; 
begin 

OPEN(DEFECTS, IN_FILE, DEFECTS_NAME); 

REPAIR ;= {the input repair); 

READ(DEFECTS, DEFECT. REPAIR.DEFECT ); 

PUT(FORMAT_DATE(REPAIR.DATE)); SET_C0L(13); PUT(REPAIR.DEFECT); 

SET_COL(20); PUT( DEFECT. NAME); NEW_LINE; 

SET_COL(22); PUT(REPAIR.COMMENT); NEW_LINE; 

CLOSE(DEFECTS ); 
exception 

when DEVICE_ERROR | END_ERR0R \ NAME_ERROR | STATUS_ERROR *> 
CLOSUDEFECTS ); PUT("Data Base Inconsistent "); 

when others => CLOSE(DEFECTS); raise; 
end PRINT_REPAIR; 


KBEmacs (ADA) <KBE.DEMO>CLICHE-LIBRARY.ADA 
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Defining the Kile UNITS 

In Screen 33, the programmer finishes the definition of the package MAINTENANCE_FILES by defining the 
file UNITS. This is done by using the cliche kcycd_fi!c_dcfinition (see Appendix A). This cliche is very 
similar to the cliche chain_filc_dcfinition. In the interest of brevity, the process of defining the file UNITS is 
compressed into a single screen since it is closely analogous to the process (discussed in detail above) of 
defining the file REPAIRS. The only real difference is that the programmer must specify the length of the key 
(here 7) as well as the fields in the file. 

Kvaluating the Commands Used 

The following summary shows all of the KBEmacs commands which are necessary in order to define the 
package MAINTENANCE_FILES. 

Insert a keyed_fi1e_definition of "models.data" . 
direct editing of MODELS file record type and key length. 

Insert a keyed_fi1e_definition of "defects.data" . 
direct editing of DEFECTS file record type and key length. 

Insert a chain_fi1e_definition of "repairs.data". 
direct editing of REPAIRS file record type. 

Insert a keyed_fi1e_definition of "units.data". 
direct editing of UNITS file record type and key length. 

A comparison of this summary with the directions (reproduced below) hypothesized at the start of this 
section shows two interesting things. First, since tire direct editing corresponds to the detailed specification of 
the record types and key lengths, it can be seen that the two sets of directions are almost identical. 

Define a package MAINTENANCE_FILES which defines four files -- 
A keyed file "models.data" with a 3 character key and the fields: 

NAME: STRINGO. .16); MAKER: STP.ING( 1. . 16). 

A keyed file "defects.data" with a 5 character key and the fields: 

NAME: STRINGO. .32); MODEL: key to the file of models. 

A chain file "repairs.data" with the fields: 

DATE: TIME; DEFECT: key to the file of defects; COMMENT: STRING(1. .32). 

Each chain should be ordered by date with the most recent record first. 

A keyed file "units.data" with a 7 character key and the fields: 

MODEL: key to the file of models; REPAIR: index into the file of repairs. 

Second, there is nothing in the KBEmacs commands which corresponds to the admonition that the repair 
records in a chain should be ordered by DATE with the most recent first. It should be noted that there is 
nothing in the package MAINTENANCE.FILES which corresponds to this cither (see Screen 33). The fact that 
there is no effective way to state this restriction as part of the file definition could be looked at as a defect of 
Ada. It is certainly a defect of KBEmacs that the system currently has no way to represent such information. 
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m-. Edit definition of MAINTENANCE_FILES 

s-X Insert a keyed_file_definition of "units.data". <end> 

direct editing 

s-<end> Finish editing the package MAINTENANCE_FILES. <end> 

The cliches PRINT_UNIT_HEADINGS and PRINT_UNIT defined. _ 

Qith CALENDAR, FUNCTIONS; 
use CALENDAR, FUNCTIONS; 
package MAINTENANCE_FILES is 

MODELS_NAME: constant STRING := "models.data"; 
type MODEL_KEY_TYPE is STRING(1..3); 
type MODEL_TYPE is 
record 

NAME: STRING(1..16); 

MAKER: STRING(l..16); 
end record; 

package MODEL_IO is new KEYED_IO(MODEL_TYPE, MODEL_KEY_TYPE); 

MODELS: MODEL_IO.FILE_TYPE; 

DEFECTS_NAME: constant STRING := "defects.data"; 
type DEFECT_KEY_TYPE is STRING!1..5); 
type DEFECT.TYPE is 
record 

NAME: STRINGO. .32); 

MODEL: MODEL_KEY_TYPE; 
end record; 

package DEFECT_IO is new KEYED_IO(DEFECT_TYPE, DEFECT_KEY_TYPE); 
DEFECTS: DEFECT_IO.FILE_TYPE; 

REPAIRS_NAME: constant STRING ;= "repairs.data"; 
subtype REPAIR_INDEX_TYPE is INDEX_TYPE; 
type REPAIR_TYPE is 
record 

DATE: TIME; 

DEFECT: DEFECT_KEY_TYPE; 

COMMENT: STRING(1. .32); 

NEXT: REPAIR_INDEX_TYPE; 
end record; 

package REPAIR_I0 is new CHAINED_IO(REPAIR_TYPE, REPAIR_INDEX_TVPE); 
REPAIRS: REPAIR_I0.FILE_TYPE; 

UNITS^NAME : constant STRING := "units.data"', 
type UNIT_KEY_TYPE Is STRING(1..7 ); 
type UNIT_TYPE Is 
record 

MODEL : MODEL_KEY_TYPE; 

REPAIR : REPAIR_INDEX_TYPE[ 
end record ; 

package UNIT_IO Is new KEYED_IO(UNIT_TYPE, UNIT_KEY_TYPE) \ 

UNITS: UNIT_IO.FILE_TYPE; 
end MAINTENANCE_FILES; 


KBEmacs (ADA) <KBE.DEMO>MAINTENANCE_FILE.ADA 
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Constraint Propagation 

In this part of the scenario, the programmer constructs a program UNIT_REPAIR_REPORT which prints out 
a report of all the repairs which have been performed on a given unit. The process of constructing this 
program is quite similar to die process of constructing the program REPORT-TIMINGS shown in the last 
chapter. The most significant difference (besides the fact that one program is written in Lisp and the other is 
written in Ada) is that a large portion of the program UNIT_REPAIR_REP0RT is filled in by means of various 
constraints. 

Directions for a Human Assistant 

The following directions might be given to a person who was asked to write the program 
UNIT_REPAIR_REPORT. 

Define a simple report program UNIT_REPAIR_REPORT. Enumerate the chain of 
repairs associated with a unit record, printing each one. Query the user for 
the key (UNIT_KEY) of the unit record to start from. Print the title 
("Report of Repairs on Unit " & UNITJCEY). Do not print a summary. 

These directions assume an understanding of die concepts "simple report", "enumerate a chain", and 
"query die user for a key". They also assume an understanding of the structure of the data base of units and 
repairs. 

Constructing the Program 

In Screen 34, die programmer begins the construction of die program UNIT_REPAIR_REPORT by creating a 
file to hold the program. He then instantiates the cliche simplc_report discussed above. This is done with a 
syntactic variant of the knowledge-based command "Define" which makes it possible to specify die top level 
structure of the program at the same time diat the initial definition is created. 
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c-X c-F Find file <KBE.DEMO>UNIT_REPAIR_REPORT.ADA 
(New File) 

s-X Define a simple_report procedure UNIT_REPAIR_REPORT. <end> 


Qft/i CALENDAR, FUNCTIONS, TEXT_I0; 
use CALENDAR, FUNCTIONS, TEXT_I0; 
procedure UNIT_REPAIR_REPORT Is 
use INT_I0; 

CURRENT_DATE: constant STRING : = FORMATJDATE{CLOCK); 

DATA : {}; 

REPORT-. TEXT_IO.FILE_TYPE; 

TITLE-. STRINGil ..{}); 
procedure CLEANJUP Is 
begin 

SET_OUTPUT(STANDARD_OUTPUT) ; 

CLOSE(REPORT); 
exception 

when STATUS_ERROR *> return; 
end CLEANJUP; 

begin 

CREATE(REPORT, 0UT_FILE, "report.txt"); 

TITLE -.= {the title}; 

SET_OUTPUT(REPORT); 

NEW_LINE(4 ); SET_COL(20); PUT(CURRENTJDATE ); NEU_LINE(2); 

SET_C0L(13); PUT(TITLE); NEW_LINE(60); 

DATA := {the Input structure of the enumerator }; 
while not {the empty^test of the enumerator}(DATA) loop 
If LINE > 64 then 

NEW_PAGE; NEW_LINE; PUT("Page-. "); PUT( INTEGER(PAGE-l), 3); 
SET_C0L(13); PUT(TITLE); SET_COL(6l); PUT(CURRENT_DATE); NEW_LINE(2); 
{the column_head1ngs}{{CURRENT_OUTPUT, modified}); 
end If; 

{the prints Item} ({ CURRENT_OUTPUT, modified}, 

{the element_accessor of the enumerator}(DATA)); 

DATA := {the step of the enumerator}(DATA); 
end loop; 

{the summary}; 

CLEANUP; 

exception 

when DEVICE_ERROR | END_ERR0R \ NAME_ERROR | STATUS_ERROR *> 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end UNIT_REPAIR_REPORT; 



KBEmacs (ADA) <KBE.DEMO>UNIT_REPAIR_REPORT.ADA Screen 34 
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The Propagation of Design Decisions 

The central design decision in any report program is deciding what values arc to be reported. When using 
the cliche simplc_rcport, this decision is specified by selecting an appropriate enumerator. In Screen 35. the 
programmer specifics that the enumerator should be a chain_enumcration which enumerates a chain of 
records in the file REPAIRS pointed to from a record in the file UNITS. Note that several parts of the code 
produced arc specified by die constraints in the cliche chain_cnumcration (described above). In particular, 
the REPAIR field is used to get the initial index into the chain file, and the NEXT field is used to get the index 
of each successive repair record. (The cursor in Screen 35 is placed on the read of the file UNITS on the theory 
that changes to the body of a procedure arc more interesting than changes to the declarations or to tire code 
which opens files.) 

Once the enumerator has been specified, the constraints in the cliche simplc_rcport (described above) fill 
in most of the rest of the program UNIT_REPAIR_REPORT. In particular, the cliche print_rcpair is used to fill 
the printjtcm role and the cliche print_rcpair_hcadings is used to fill in the columnjicadings role. The 
linejimit is changed from 64 to 63 since the print_repair prints out two lines of output, whereas the default 
assumption used by the constraint function SIZE_IN_LINES in Screen 34 was that the print_out would 
produce one line of output. 

Taking Care of Details 

Another thing to note about the code in Screen 35 is that a number of variable declarations and the like 
have been added to the program. This is another example of how KBEmacs takes care of programming 
details. It is interesting to note that the data types in these declarations are not specified as part of the cliches 
used. Rather, KBKmacs computes what data types should be used based on the definitions of the files used, 
and the specifications for the procedures which operate on the variables. 
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s-X Fill the enumerator with a chain_enumeration of UNITS and REPAIRS. <end> 


with CALENDAR, FUNCTIONS, MAINTENANCE_FILES, TEXT_I0; 
use CALENDAR, FUNCTIONS, HAINTENANCE_FILES, TEXT_I0; 
procedure UNIT_REPAIR_REPORT is 

use DEFECT_IO, REPAIR_IO, UNIT_I0, INT_I0; 

CURRENT_DATE: constant STRING := FORMAT_DATE(CLOCK); 

DEFECT: DEFECT_TYPE; 

REPAIR-. REPAIR_TYPE; 

REPAIR_INDEX : REPAIR_INDEX_TYPE; 

REPORT: TEXT_I0.FILE_TYPE; 

TITLE: STRINGO. .{}); 

UNIT: UNIT_TYPE-, 
procedure CLEAN_UP is 
begin 

SET_OUTPUT(STANDARD_OUTPUT); 

CLOSE(DEFECTS); CLOSE(REPAIRS ); CLOSE{UNITS) ; CLOSE(REPORT); 
exception 

when STATUS_ERROR => return; 
end CLEAN_UP; 

begin 

OPEN(DEFECTS, IN_FILE, DEFECTS_NAME ); 0PEN(REPAIRS. IN_FILE, REPAIRS_NAME ); 
OPEN(UNITS, IN_FILE, UNITS_NAME) ; CREATE(REP0RT, 0UT_FILE, "report.txt"); 
TITLE := {the title}; 

SET_OUTPUT(REPORT); 

NEW_LINE(4); SET_COL(20); PUT(CURRENT_DATE); NEW_LINE(2); 

SET_C0L(13); PUT(TITLE); NEW_LINE(60); 

Q EAD(UNITS, UNIT, {the ma1n_file_key }); 

REPAIR_INDEX UNIT. REPAIR-, 
while not NULL_INDEX(REPAIR_INDEX) loop 
READ(REPAIRS, REPAIR, REPAIR_INDEX ); 
if LINE > 63 then 

NEW_PAGE; NEW_LINE; PUT("Fage: "); PUT(lNTEGER(PAGE-l), 3); 

SET_C0L(13); PUT(TITLE); SET_C0L(6l); PUT(CURRENT_DATE); NEW_LINE(2); 
PUT(" Date Defect Description/Comment")', NEU^LINE(Z); 
end if; 

READ(DEFECTS, DEFECT, REPAIR.DEFECT ); 

PUT(FORMAT_DATE( REPAIR. DATE))-, SET_C0L(13 ); PUT(REPAIR. DEFECT ); 
SET_COL(20 ); PUT(DEFECT.NANE ); NEU_LINE; 

SET_C0L[22 ); PUT(REPAIR.COMMENT ); NEW_LINE-, 

REPAIR_INDEX := REPAIR.NEXT-, 
end loop; 

{the summary}; 

CLEAN_UP; 

exception 

when DEVICE.ERROR | END_ERROR | NAME_ERROR | STATUS_ERR0R => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end UNIT_REPAIR_REPORT; 


KBEmacs (ADA) <KBE.DEKO>UNIT_REPAIR_REPORT.ADA 
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The Cliche Query_Uscr_For_Kcy 

After specifying the enumerator in Screen 35, the only roles which arc left unfilled arc the title, the 
main_filc_kcy, and the summary. In Screen 36, the programmer specifics that the user of the program 
UNIT_REPAIR_REP0RT should be queried in order to determine what main file key to use. This is done with 
the cliche qucry_uscr_for_kcy (shown below). 

with TEXT_I0; 
use TEXT_10; 

cliche QUERY_USER_F0R_KEY is 
primary roles FILE; 
described roles FILE; 

comment "queries the user for a key to a record in {the file}"; 
constraints 

RENAME("DATA_RECORD", SINGULAR_FORM({the file})); 

DEFAULT({the file_name}, CORRESPONDING_FILE_NAME({the file})); 
end constraints; 

DATA_REC0RD: {}; 

DATA_RECORD_KEY: {}; 

FILE: {}; 
begin 

FILE := {the file}; 

OPEN(FILE, IN_FILE, {the file_name}); 
loop 
begin 

NEW_LINE; PUT("Enter DATA_RECORD Key; "); GET(DATA_RECORD_KEY); 

READ(FILE , DATA_RECORD, DATA_RECORD_KEY); 

exit; 

exception 

when END_ERR0R => PUT("Invalid DATA_RECORD Key"); NEW_LINE; 
end; 

end loop; 

CLOSE(FILE); 
return DATA_RECORD_KEY; 
exception 

when DEVICE_ERROR | END_ERR0R | NAME_ERROR | STATUS_ERROR => 

CLOSE(FILE); PUT("Data Base Inconsistent"); 
when others => CLOSE(FILE); raise; 
end QUERY_USER_F0R_KEY; 

In addition to getting a key from the user, the cliche query_user_for_kcy checks the key to make sure that 
it is valid. In order to check the key, the cliche attempts to read the corresponding record from the file. If the 
read fails, then the user is asked for a different key. 

Taking Care of Details 

Both the code in Screen 35 and the cliche qucry_uscr_for_kcy specify that the file UNITS should be 
opened and closed. If nothing more were said this would cause the file UNITS to be opened twice and closed 
twice in Screen 36. In order to prevent this from happening, KBEmacs determines which files are required to 
be open and makes sure that each file is opened only once. Special provision is made for the opening and 
closing of files because this is an important efficiency issue in file oriented I/O. 
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s-F Fill the main_f11o_key with a query_user_for_key of UNITS. <end> 


with CALENDAR, FUNCTIONS, MAINTENANCE_FILES, TEXT_I0; 
use CALENDAR, FUNCTIONS, MAINTENANCE_FILES, TEXT_I0; 
procedure UNIT_REPAIR_REPORT is 

use DEFECT_I0, REPAIR_I0, UNIT_I0, INT_I0; 

CURRENT_DATE: constant STRING := F0RMAT_DATE(CL0CK); 

DEFECT: DEFECT_TYPE; 

REPAIR: REPAIR_TYPE; 

REPAIR_INDEX: REPAIR_INDEX_TYPE; 

REPORT: TEXT_I0.FILE_TYPE; 

TITLE: STRING(1. .{}); 

UNIT: UNIT_TYPE; 

UNIT_KEY: UNIT_KEY_TYPE; 
procedure CLEAN_UP is 
begin 

SET_OUTPUT(STANDARD_OUTPUT); 

CLOSE(DEFECTS); CLOSE(REPAIRS); CLOSE(UNITS); CLOSE(REPORT); 
exception 

when STATUS_ERROR => return; 
end CLEANJJP; 

begin 

0PEN(DEFECTS, IN_FILE, DEFECTS_NAME); 0PEN(REPAIRS, IN_FILE, REPAIRS_NAME); 

OPEN(UNITS, IN_FILE, UNITS_NAME); CREATE(REPORT, 0UT_FILE, "report.txt"); 
TITLE := (the title}; 

SET_0UTPUT(REPORT); 

NEW_LINE(4); SET_COL(20); PUT(CURRENT_DATE); NEW_LINE(2); 

SET_COL(13); PUT(TITLE); NEW_LINE(60); 

Qoop 

begin 

NEW_LINE; PUT("Enter UNIT Key: "); GET(UNIT_KEY); 

READUJNITS, UNIT, UNIT_KEY); 
exit; 
exception 

when END_ERROR => PUT( n Invalid UNIT Key")’, NEU_LINE; 
end; 

end loop; 

READ(UNITS, UNIT, UNIT_KEY); 

REPAIR_INDEX := UNIT.REPAIR; 
while not NULL_INDEX(REPAIR_INDEX) loop 
READ(REPAIRS, REPAIR, REPAIR_INDEX); 
if LINE > 63 then 

NEW_PAGE; NEW_LINE; PUT("Page: "); PUT(INTEGER(PAGE-1), 3); 

SET_C0L(13); PUT(TITLE); SET_C0L(6l); PUT(CURRENT_DATE); NEW_LINE(2); 
PUT(" Date Defect Description/Comment"); NEW_LINE(2); 
end if; 

READ(DEFECTS , DEFECT, REPAIR.DEFECT); 

PUT(FORMAT_DATE(REPAIR.DATE)); SET_C0L(13); PUT(REPAIR.DEFECT); 

SET C0L(20); PUT(DEFECT.NAME); NEWSLINE; 

SET_C0L(22); PUT(REPAIR.COMMENT); NEW_LINE; 

REPAIR_INDEX := REPAIR.NEXT; 
end loop; 

(the summary}; 

CLEAN_UP; 
exception 

when DEVICE_ERROR | END_ERR0R | NAME_ERROR | STATUS_ERROR => 

CLEAN_UP; PUT("Data Base Inconsistent”); 


KBEmacs (ADA) <KBE.DEMO>UNIT_REPAIR_REPORT.ADA 
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The Knowledge-Based Command "Share" 

The code in Screen 36 is inefficient in that it reads the same record in the file UNITS.twice. The record is 
read twice because it is read for two different reasons by two different cliches. The cliche qucry_uscr_for_kcy 
reads the record in order to determine that die key is a valid key and the cliche chain_cnumcration reads die 
record in order to obtain die index of die first repair record. 

The existence of this problem illustrates that, aldiough KBHmacs is capable of automatically sharing 
multiple opens and closes on a file, it is not capable of automatically sharing redundant code in general. 
However, KBHmacs provides a knowledge-based command "Share" which can assist a programmer in 
sharing code. 

From the point of view of KBHmacs, the most difficult diing about sharing two computations is detecting 
that sharing might be useful. On die other hand it is quite easy for KBHmacs to check that two computations 
can be shared and to modify a program in order to effect a given sharing. 

From the point of view of the programmer, the most difficult diing about sharing two computations is 
verifying diat die two computations arc in fact identical and can therefore actually be shared. The problem is 
that the existence of side-effects and die like can prevent die sharing of computations which otherwise appear 
identical. 

The divergence in abilities between die programmer and KBHmacs with regard to sharing provides an 
opportunity for a useful division of labor. In Screen 37, the programmer determines that the two calls on 
READ of the file UNITS should be shared and asks KBHmacs to change the program so that they are shared. 
KBHmacs checks that die two calls on READ are in fact reading die same record and diat they can be shared. 
It then modifies die program in order to achieve the sharing. 

The sharing shown in Screen 37 is a relatively trivial example. KBHmacs is capable of handling much 
more complicated cases. There arc two ways in which things can become more complex. First, if side-effects 
are involved, it can be much harder to determine whether the two computations to be shared can indeed by 
shared. KBHmacs is able to deal with side-effects because the system understands which functions have 
side-effects and the data flow in a plan takes side-effects into account. Second, sharing two computations can 
require more extensive changes in the program text. In particular, once one of the two computations has been 
removed, a variable usually has to be introduced so diat die value created by die remaining computation can 
be used in two places. Here die changes are very simple because, in Screen 36, die procedure READ already 
forces die use of a variable and KBHmacs used die same variable for both READS. (KBEmacs tries to reuse 
variable names in logically related contexts in order to reduce the number of variables in a program.) 
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s-X Share the first READ and the second READ. <end> 


with CALENDAR. FUNCTIONS, MAINTENANCE_FILES, TEXT_I0; 
use CALENDAR. FUNCTIONS, MAINTENANCE_FILES, TEXT_IO; 
procedure UNIT_REPAIR_REPORT is 

use DEFECT_I0, REPAIR.IO, UNIT_IO, INT_I0; 
CURRENT_DATE: constant STRING := FORMAT_DATE(CLOCK); 
DEFECT: DEFECT_TYPE; 

REPAIR: REPAIR_TYPE; 

REPAIR_INDEX: REPAIR_INDEX_TYPE; 

REPORT: TEXT_IO.FILE_TYPE; 

TITLE: STRING(1. .{}); 

UNIT: UNIT_TYPE; 

UNIT_KEY: UNIT_KEY_TYPE; 
procedure CLEAN_UP is 
begin 

SET_OUTPUT(STANDARD_OUTPUT); 

CLOSE(DEFECTS); CLOSE(REPAIRS); CLOSE(UNITS); 


CLOSE(REPORT); 


exception 

when STATUS_ERROR => return; 


end CLEAN_UP; 


9 OPEN(DEFECTS IN.FILE, DEFECTS_NAME); OPEN(REPAIRS. IN_FILE, REPAIRS_NAME); 
OPEN(UNITS, IN_FILE, UNITS_NAME); CREATE(REPORT, OUT_FILE, "report.txt”); 
TITLE := {the title}; 

SET_OUTPUT(REPORT); , , 

NEW_LINE(4); SET_COL(20); PUT(CURRENT_DATE); NEW_LINE(2); 

SET_C0L(13); PUT(TITLE); NEW_LINE(60); 
loop 

begin % , . 

NEW_LINE; PUT("Enter UNIT Key: "); GET(UNIT_KEY); 

READ(UNITS, UNIT, UNIT_KEY); 
exit; 
exception 

when END_ERROR => PUT("Invalid UNIT Key"); NEW_LINE; 


end; 

end loop; 

E£PAIR_INDEX := UNIT.REPAIR; 
while not NULL_INDEX(REPAIR_INDEX) loop 
READ(REPAIRS, REPAIR, REPAIR_INDEX); 

if LINE > 63 then , x . 

NEW_PAGE; NEW_LINE; PUT("Page: "); PUT(INTEGER!PAGE-1), 3); 

SET_COL(13); PUT(TITLE); SET_COL(6l); PUT(CURRENT_DATE); NEW_LINE(2); 
PUT(" Date Defect Description/Comment"); NEW_LINE(2); 
end if; 

READ(DEFECTS, DEFECT, REPAIR.DEFECT); 

PUT(FORMAT_DATE(REPAIR.DATE)); SET_COL(13); PUT(REPAIR.DEFECT); 
SET_COL(20); PUT(DEFECT.NAME); NEW_LINE; 

SET_C0L(22); PUT(REPAIR.COMMENT); NEW_LINE; 

REPAIR_INDEX := REPAIR.NEXT; 


end loop; 

{the summary}; 
CLEANJJP; 


exception _ „ 

when DEVICE_ERROR | END_ERROR | NAME_ERROR | SIATUS_ERROR => 
CLEAN_UP; PUT(”Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 


KBEmacs (ADA) <KBE.DEMO>UNIT_REPAIR_REPORT.ADA 


Screen 37 
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Specifying the Title 

In Screen 38, the programmer uses the knowledge-based command "Fil 1" in order to specify the title to 
be used in the report. The title itself is expressed as a literal Ada expression in the command. A "Fill" 
command specifying a literal piece of program code is equivalent to using direct editing to tcxtually replace 
the role with the program code. The expression is wrapped in parentheses so that the command language 
parser will recognize it as a single expression. 

Using Common Sense 

An interesting aspect of Screen 37 is that the title role happens to precede the GET of the UNITJtEY. 
(These two computations arc not ordered by control flow or data flow and KBHmacs chose to put the title 
first.) As a result, the "F i 11" command in Screen 38 docs not completely make sense. The problem is that it 
refers to the variable UNIT_KEY before it has been given a value. 

KBHmacs tries to forestall problems in situations like this by not taking die exact order of program 
statements too literally. When the programmer specifies an expression to be inserted into a program, 
KBHmacs interprets each variable reference in die expression as a request to reference die associated value. If 
a variable docs not have a value at die exact place where the insertion is to be made, then KBHmacs 
rearranges the program (within the limits of data flow and control flow constraints) in order to make an 
appropriate value available. Here, the GET of the UNIT_KEY is moved before the title. 

Taking Care of Details 

Another interesting change in Screen 38 is that once the computation of the title has been specified 
KBHmacs can compute die length of die string which stores the title. T his is done based on the length of the 
literal string supplied by the programmer and on die fact diat KBHmacs knows how long a UNIT_KEY is (by 
looking at the definition of die file UNITS in the package MAINTENANCE_FILES). 

The feet that KBHmacs can determine the appropriate declaration for die variable TITLE shields the 
programmer from an irritating detail of the language Ada. Since diere is no varying length string data type in 
standard Ada, the declaration of a local string variable (e.g., TITLE) must include the exact length of the string 
unless it is a constant (e.g., CURRENT_DATE). 
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s-X Fill the title with ("Report of Repairs on Unit " & UNITJCEY). <end> 


with CALENDAR, FUNCTIONS, MAINTENANCE_FILES, TEXT_I0; 
use CALENDAR, FUNCTIONS, MAINTENANCE_FILES, TEXT_IO; 
procedure UNIT_REPAIR_REPORT is 

use DEFECT_IO, REPAIR_IO, UNIT_I0, INT_I0; 

CURREN1_DATE: constant STRING := FORMAT_DATE(CLOCK); 

DEFECT: DEFECT_TYPE; 

REPAIR: REPAIR_TYPE; 

REPAIR_INDEX: REPAIR_INDEX_TYPE; 

REPORT: TEXT_I0.FILE_TYPE; 

TITLE: STRING(1. .33); 

UNIT: UNIT_TYPE; 

UNIT_KEY: UNIT_KEY_TYPE; 
procedure CLEAN_UP is 
begin 

SET_OUTPUT(STANDARD_OUTPUT); 

CLOSE(DEFECTS); CLOSE(REPAIRS); CLOSE(UNITS); CLOSE(REPORT); 
exception 

when STATUS_ERROR => return; 
end CLEANJJP; 

begin 

OPEN(DEFECTS, IN_FILE, DEFECTS_NAME); OPEN(REPAIRS, IN_FILE, REPAIRS_NAME); 
OPEN(UNITS, IN.FILE, UNITS_NAME); CREATE(REPORT, 0UT_FILE, "report.txt"); 

Qoop 
begin 

NEWSLINE; PUT("Enter UNIT Key: "); GET(UNIT_KEY ); 

READiUNITS, UNIT, UNIT^KEY); 
exit ; 
exception 

when END_ERR0R => PUT("InvalId UNIT Key"); NEWSLINE; 
end; 

end loop ; 

TITLE := "Report of Repairs on Unit " & UNIT_KEY; 

SET_0UTPUT(REPORT); 

NEW_LINE(4); SET_COL(20); PUT(CURRENT_DATE); NEW_LINE(2); 

SET_C0L(13); PUT(TITLE); NEW_LINE(60); 

REPAIR_INDEX := UNIT.REPAIR; 
while not NULL_INDEX(REPAIR_INDEX) loop 
READ(REPAIRS, REPAIR, REPAIR_INOEX); 
if LINE > 63 then 

NEW_PAGE; NEW_LINE; PUT("Page: "); PUT(lNTEGER(PAGE-l), 3); 

SET_C0L(13); PUT(TITLE); SET_COL(6l); PUT(CURRENT_DATE); NEW_LINE(2); 

PUT(" Date Defect Description/Comment"); NEW_LINE(2); 
end if; 

READ(DEFECTS, DEFECT, REPAIR.DEFECT); 

PUT(FORMAT_DATE(REPAIR.DATE)); SET_C0L(13); PUT(REPAIR.DEFECT); 

SET_COL(20); PUT(DEFECT.NAME); NEW_LINE; 

SET_COL(22); PUT(REPAIR.COMMENT); NEW_LINE; 

REPAIR_INDEX := REPAIR.NEXT; 
end loop; 

{the summary}; 

CLEAN_UP; 
exception 

when DEVICE_ERR0R | END_ERROR | NAME_ERROR | STATUS_ERROR => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 

KBEmacs (ADA) <KBE.DEMO>UNIT_REPAIR_REPORT.ADA Screen 38 
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Finishing the Program 

In Screen 39, the programmer completes the program UNIT_REPAIR_REPORT by removing the summary 
role. He docs this by using the abbreviated command "s-R" which offers to remove the first unfilled role 
following die current position of die cursor. The linejimit is changed from 63 to 64 since zero lines are now 
required for the summary whereas the default assumption used by the constraint function SIZE_IN_LINES in 
the screens above was that the summary would produce one line of output. The programmer then tells 
KBEmacs that the program is complete and compiles the program so that it can be tested. 

Kvaluating the Commands Used 

Consider the set of knowledge-based commands (shown below) which were used in order to implement 
the program UNIT_REPAIR_REPORT. 

Define a simp!e_report procedure UNIT_REPAIR_REPORT. 

Fill the enumerator with a chain_enumeration of UNITS and REPAIRS. 

Fill the main_fiie_key with a query_user_for_key of UNITS. 

Share the first READ and the second READ. 

Fill the title with ("Report of Repairs on Unit " & UNIT_KEY). 

Remove the summary. 

Comparing these commands with the hypothetical directions for a human assistant shows that they are 
virtually identical. The only real difference is that KBEmacs was not smart enough to automatically share the 
two calls on READ. 

Define a simple report program UNIT_REPAIR_REPORT. Enumerate the chain of 

repairs associated with a unit record, printing each one. Query the user for 

the key (UNIT_KEY) of the unit record to start from. Print the title 

("Report of Repairs on Unit " & UNIT_KEY). Do not print a summary. 

It is also interesting to compare the KBEmacs commands used to construct the program 
UNIT_REPAIR_REP0RT with the directions (reproduced below) which were used to create die program 
REPORT-TIMINGS in the last chapter. 

Define a program REPORT-TIMINGS with a parameter TIMINGS. 

Insert a simple-report. 

Fill the title with "Report of Reaction Timings (in msec.)". 

Fill the enumerator with a list-enumeration of TIMINGS. 

Remove the column-headings. 

Fill the print-item with a print-out of "~&~5X~8:D". 

Fill the summary with (FORMAT REPORT "~2&~{mean:~8:D (deviation: ~:D)~}" 

(MEAN-AND-DEVIATION TIMINGS)). 

This comparison leads to two points. First, the commands for UNIT_REPAIR_REP0RT arc significantly 
simpler due to the action of the constraints defined as part of the cliche simplc_rcport and the existence of the 
cliches print_repair and prinLrcpair_headings. Second, the language independence of KBEmacs is illustrated 
by the fact that the two sets of commands are really very similar. If it were not for the inclusion of a few literal 
pieces of program code, there would be no way to know that die programs produced by the two sets of 
commands were coded in two different programming languages. 
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s-R Remove the summary. <end> 

s-<end> Finish editing the procedure UNIT_REPAIR_REPORT. <end> 
c-shift-C Compiling UNIT_REPAIR_REPORT 


Qith CALENDAR, FUNCTIONS, MAINTENANCE_FILES, TEXT_I0; 
use CALENDAR, FUNCTIONS, MAINTENANCE_FILES, TEXT_I0; 
procedure UNIT_REPAIR_REPORT is 

use DEFECT_I0, REPAIR_I0, UNIT_I0, INT_I0; 

CURRENTJDATE: constant STRING : = F0RMAT_DATE(CL0CK); 

DEFECT: DEFECT_TYPE; 

REPAIR: REPAIR_TYPE; 

REPAIR_INDEX: REPAIR_INDEX_TYPE; 

REPORT: TEXT_I0.FILE_TYPE; 

TITLE: STRING(1. .33); 

UNIT: UNIT_TYPE; 

UNIT_KEY: UNIT_KEY_TYPE; 
procedure CLEAN_UP is 
begin 

SET_OUTPUT(STANDARD_OUTPUT); 

CLOSE(DEFECTS); CLOSE(REPAIRS); CLOSE(UNITS); CLOSE(REPORT)j 
exception 

when STATUS_ERROR => return; 
end CLEAN_UP; 

begin 

OPEN(DEFECTS, IN_FILE, DEFECTS_NAME); OPEN(REPAIRS, IN_FILE, REPAIRS_NAME); 

0PEN(UNITS, IN_FILE, UNITS_NAME); CREATE(REPORT, OUT_FILE, "report.txt"); 

loop 

begin 

NEW_LINE; PUT(”Enter UNIT Key: "); GET(UNIT_KEY); 

READ(UNITS, UNIT, UNIT_KEY); 
exit; 
exception 

when END_ERR0R => PUT("Invalid UNIT Key"); NEW_LINE; 
end; 

end loop; 

TITLE := "Report of Repairs on Unit " & UNIT_KEY; 

SET_0UTPUT(REPORT); 

NEW_LINE(4); SET_C0L(20); PUT(CURRENT_DATE); NEW_LINE(2); 

SET_C0L(13); PUT(TITLE); NEW_LINE(60); 

REPAIR_INDEX := UNIT.REPAIR; 
while not NULL_INDEX(REPAIR_INDEX) loop 
READ(REPAIRS , REPAIR, REPAIR_INDEX); 
if LINE > 64 then 

NEW_PAGE; NEW_LINE; PUT("Page: ”); PUT(INTEGER(PAGE-1), 3); 

SET_C0L(13); PUT(TITLE); SET_C0L(61); PUT(CURRENT_DATE); NEW_LINE(2); 
PUT(" Date Defect Description/Comment"); NEW_LINE(2); 
end if; 

READ(DEFECTS , DEFECT, REPAIR.DEFECT); 

PUT(FORMAT_DATE(REPAIR.DATE)); SET_C0L(13); PUT(REPAIR.DEFECT); 
SET_COL(20); PUT(DEFECT.NAME); NEW_LINE; 

SET_C0L(22); PUT(REPAIR.COMMENT); NEW_LINE; 

REPAIR_INDEX := REPAIR.NEXT; 
end loop; 

CLEAN_UP; 
exception 

when DEVICE_ERROR | END_ERR0R | NAME_ERROR | STATUS.ERROR => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end UNIT_REPAIR_REPORT; 

KBEmacs (ADA) <KBE.DEM0>UNIT_REPAIR_REP0RT.ADA 


Screen 39 
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s-; Comment the procedure UNIT_REPAIR_REPORT. <end> 


— The procedure UNIT_REPA1R_REP0RT Is a slmple^report : 

The filename Is "report, txt”. 

The title Is ("Report of Repairs on Unit " & UNIT_KEY). 

The enumerator Is a cha1n_enumerat1on. 

It enumerates the chain records In REPAIRS starting from the 
the header record Indexed by UNIT_KEY. 

The column_head1ngs are a pr1nt_repa1r_head1ngs. 

It prints headings for printing repair records. 

The pr1nt_1tem Is a pr1nt_repa1r. 

It prints out the fields of REPAIR. 

There Is no summary. 

D 

with CALENDAR, FUNCTIONS, MAINTENANCE_FILES, TEXT_I0; 
use CALENDAR, FUNCTIONS, MAINTENANCE_FILES, TEXT_I0; 
procedure UNIT_REPAIR_REPORT is 

use DEFECT.IO, REPAIR_I0, UNIT_I0, INT_I0; 

CURRENT_DATE: constant STRING := FORMAT_DATE(CLOCK); 

DEFECT: DEFECT_TYPE; 

REPAIR: REPAIR_TYPE; 

REPAIR_INDEX: REPAIR_INDEX_TYPE; 

REPORT: TEXT_I0.FILE_TYPE; 

TITLE: STRING(1. .33); 

UNIT: UNITJTYPE; 

UNIT_KEY: UNIT_KEY_TYPE; 
procedure CLEAN_UP is 
begin 

SET_OUTPUT(STANDARD_OUTPUT); 

CLOSE(DEFECTS); CLOSE(REPAIRS); CLOSE(UNITS); CLOSE(REPORT); 
exception 

when STATUS_ERROR => return; 
end CLEAN_UP; 

begin 

OPEN(DEFECTS, IN_FILE, DEFECTS_NAME); OPEN(REPAIRS, IN_FILE, REPAIRS_NAME); 
OPEN(UNITS, IN_FILE, UNITS_NAME); CREATE!REPORT, 0UT_FILE, "report.txt"); 
loop 
begin 

NEW_LINE; PUT("Enter UNIT Key: "); GET(UNIT_KEY); 

READ(UNITS, UNIT, UNIT_KEY); 
exit; 
exception 

when END_ERR0R => PUT("Invalid UNIT Key”); NEW_LINE; 
end; 

end loop; 

TITLE := "Report of Repairs on Unit " & UNIT_KEY; 

SET_0UTPUT(REPORT); 

NEW_LINE(4); SET_COL(20); PUT(CURRENT_DATE); NEW_LINE(2); 

SET_C0L(13); PUT(TITLE); NEW_LINE(60); 

REPAIR.INDEX := UNIT.REPAIR; 
while not NULL_INDEX(REPAIR_INDEX) loop 
READ(REPAIRS, REPAIR, REPAIR_INDEX); 
if LINE > 64 then 

NEW_PAGE; NEW_LINE; PUT(”Page: "); PUT(INTEGER!PAGE-1), 3); 

SET__C0L(13); PUT(TITLE); SET_C0L(61); PUT(CURRENT_DATE); NEW_LINE(2); 

PUT(" Date Defect Description/Comment"); NEW_LINE(2); 
end if; 

KBEmacs (ADA) <KBE.DEMO>UNIT_REPAIR_REPORT.ADA Scrccn40 
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Testing 

As an adjunct to KBEmacs, a minimal interpreter for a subset of Ada has been implemented so that Ada 
programs can be tested, in Screen 41, the programmer teas the program UMIT_R£PAlR_REPOflT. The 
programmer first uses the procedure C*£AT£_TESTJIECffllBS face Appendix B) to create a test data base 
containing the records shown in Figure 7. He then runs die program UNI TJtEPMRJtE PORT. in addition to 
creating a report he tests what happens when the user inputs an invalid key to Ac file UNITS. Finally, the 
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<select> A 


CREATE_TEST_RECORDS; 

UNIT_REPAIR_REPORT; 

Enter Unit Key: GA2-341 
Invalid Unit Key 

Enter Unit Key: GA2-342 

DISPLAY_REPORT; 

< 4 blank lines> 

5/27/1985 

Report of Repairs on Unit GA2-342 
<59 blank lines> 

<page> 

Page: 1 Report of Repairs on Unit GA2-342 5/27/1985 

Date Defect Description/Comment 

3/19/1985 GA-32 Clogged gas injection port 

Port Diameter seems below specs. 

1/23/1985 GA-11 Control board cold solder joint 

Took two days to find. 

9/14/1983 GA-32 Clogged gas injection port 

Probably caused by humidity. 

a 
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A Large Program 

In the last part of the scenario, the programmer constructs a complex report program named 
MODEL_DEFECTS_REPORT. This program produces a summary report of the defects which have occurred on 
units of a given model since a given date. 1'hc following directions might be used to tell a person how to write 
the program. 

Define a simple report program MODEL_DEFECTS_REPORT. Query the user for a 
key of a record in the file MODELS and for a starting date. Enumerate all of 
the repairs performed on all of the units and select the repairs which have 
been performed on units of the specified model since the start date. Print a 
summarized report showing how many times each kind of defect occurs in these 
repairs. Print a title showing the specified model and the starting date. 

Do not print a summary. 

There are six key concepts which underlie the directions above: how to print a simple report, how to query 
the user for a key, how to query the user for a date, how to enumerate all of the repairs, how to select a subset 
of them, and how to summarize them showing the frequency of eacli defect. They first two of these concepts 
were used in the program UNIT_REPAIR_REP0RT. The remaining four will be discussed in detail below. 

The Cliche File_Selection 

The cliche filc_sclcction (shown on die next page) creates a file of selected keys to records in another file. 
The cliche is a combination of three more basic cliches: enumeration, selection, and file_accumulation (all 
shown in Appendix A). The cliche enumerates some scries of values, selects some subscries of these values, 
and writes a file of keys corresponding to these values. 

The cliche has four principal roles. The sourcejile is the file to which keys are being selected. The 
enumerator enumerates some scries of records. It is expected that these records will cither be the records in 
the source_file, or other records which contain keys to the sourcc_file. The selectionjest selects the 
enumerated records which are of interest. The rccord_key_accessor determines what sourcc_file key 
corresponds to each selected record. 

The cliche includes a declaration for the file SELECTIONS which is used to contain the selected keys. The 
I/O functions for this file arc an instantiation of the standard Ada generic package DIRECT_I0. An output 
role is used to specify that the file SELECTIONS is die logical output of die cliche. 

The constraint in the cliche is used to rename the role record_key_acccssor so that it will have a more 
mnemonic name when die cliche is instantiated. For example, if die source_filc is specified to be die file 
DEFECTS then die rccord_key_acccssor role will be renamed the dcfcct_key_accessor. 
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with DIRECT_I0; 
cliche FILE_SELECTION is 

primary roles SOURCE_FILE; 

described roles SOURCE_FILE, SELECTION_TEST, RECORD_KEY_ACCESSOR; 
comment "creates a file containing selected record keys for 
{the source_fi1e}"; 
constraints 

RENAME!"RECORD_KEY", REC0RD_KEY_R00T({the source_file})); 
end constraints; 

package SELECTI0N_I0 is new DIRECT_I0(RECORD_KEY_TYPE); 

use SELECTI0N_I0; 

SELECTIONS: SELECT 10N_I0.FILE_TYPE; 

DATA: {}; 

DATUM: {}; 
begin 

DATA := {the source_fi1e}; 

CREATE(SELECTIONS, INOUT_FILE); 

while not {the empty_test of the enumerator}(DATA) loop 
DATUM := {the element_accessor of the enumerator}(DATA); 
if {the selection_test}(DATUM) then 

WRITE(SELECTIONS, {the record_key_accessor}(DATUM)); 
end if; 

DATA := {the step of the enumerator}(DATA); 
end loop; 

{SELECTIONS, the output selection_fi1e}; 

CLOSE(SELECTIONS); 
exception 

when DEVICE_ERROR | END_ERR0R | NAME_ERROR | STATUS_ERROR => 
CLOSE(SELECTIONS); PUT("Data Base Inconsistent"); 
when others = > CLOSE(SELECTIONS); raise; 
end FILE_SELECTION; 
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I lie Cliche l ; iie_Summari/.ation 

with DIRECT_I0; 
cliche FILE_SUMMARIZATION is 
primary roles SOURCE_FILE; 
described roles SOURCE_FILE; 

comment "creates a file summarizing the frequency of occurrence of 
the record keys stored in {the source file}"; 
constraints 

RENAME!"S0URCE_REC0RD", SINGULAR_FORM({the source_file})); 

RENAME!"RECORD_KEY", RECORD_KEY_ROOT({the source_fi1e})); 

DEFAULT({the source_fi1e_name}, 

CORRESPONDING_FILE_NAME({the source_fi1e})); 
end constraints; 

type SUMMARY.TYPE is 
record 

COUNT: INTEGER; 

KEY: RECORD_KEY_TYPE; 
end record; 

package SUMMARY_IO is new DIRECT_IO(SUMMARY_TYPE); 
use SUMMARY_IO; 

SUMMARIES: SUMMARY_IO.FILE_TYPE; 

SOURCE_FILE: {}; 

function BUILD_SUMMARY(COUNT: INTEGER; KEY: RECORD_KEY_TYPE) 

return SUMMARY_TYPE is 

begin return SUMMARY_TYPE’(COUNT, KEY); end BUILD_SUMMARY; 
function SUMMARY_GREATER_THAN(X: SUMMARY_TYPE; Y: SUMMARY_TYPE) 

return BOOLEAN is 

begin return X.COUNT > Y.COUNT; end SUMMARY_GREATER_THAN; 
procedure SORT_SOURCE_RECORDS is 

new SORT_FILE(RECORD_KEY_TYPE, SOURCE_RECORD_IO.FILE_TYPE, 
SOURCE_RECORD_IO.POSITIVE_COUNT); 
procedure SORT_SUMMARIES is 

new SORT_FILE(SUMMARY_TYPE, SUMMARY_IO.FILE_TYPE, 

SUMMARY_IO.P0SITIVE_C0UNT, SUMMARY_GREATER_THAN); 
procedure SUMMARIZE_SOURCE_RECORDS is 

new SUMMARIZE_FILE(RECORD_KEY_TYPE, SOURCE_RECORD_IO.FILE_TYPE, 

SUMMARY_TYPE, SUMMARY_IO.FILE_TYPE, BUILD_SUMMARY); 

procedure CLEAN_UP is 
begin 

CLOSE(SOURCE_FILE); CLOSE(SUMMARIES); 
exception 

when STATUS_ERROR => return; 
end CLEAN_UP; 

begin 

S0URCE_FILE := {the source_file}; 

OPEN(SOURCE_FILE, INOUT_FILE, {the source_file_name}); 

CREATE(SUMMARIES, INOUT_FILE); 

SORT_SOURCE_RECOROS(SOURCE_FILE); 

SUMMARIZE_SOURCE_.RECORDS(SOURCE_FILE, SUMMARIES); 
SORT_SUMMARIES(SUMMARIES); 

{SUMMARIES, the output summaries}; 

CLEANJJP; 

exception 

when DEVICE.ERROR | END_ERR0R | NAME.ERROR | STATUS_ERROR => 

CLEAN_UP; PUT("Data 8ase Inconsistent”); 
when others => CLEAN_UP; raise; 
end FILE_SUMMARIZATION; 



A Large Program 


121 


The cliche filc_summari/.ation (shown on the previous page) takes in a source file of values and creates a 
summary file which shows how many times each value occurs in the source file. Hacli record in the summary 
file contains one of the values from the source file and a count of how many times that value occurs in the 
source file. The records in the summary file arc sorted with the most frequent values first. As an example of 
what the cliche docs, suppose that the source file contained the values "A A B A C A C". The summary file 
would then contain the records "(4 A) (2 C) (l B)". 

The cliche has only one principal role: the sourceJile. The summary file is the logical output of the cliche. 
The cliche works by sorting the source file so that identical items become adjacent, creating die summary file 
by counting how many times each value exists in the source file, and then sorting die summary file. 

The cliche depends heavily on the generic procedures S0RT_FILE and SUMMARIZE_FILE which are 
defined in the package FUNCTIONS (see Appendix B). Most of the code for the cliche consists of declarations 
which arc required in order to instantiate these procedures. The body of the code is a scries of calls on these 
instantiations. 

The cliche filc_summarization is another example of the fact that KBEmacs uses existing mechanisms 
whenever possible. Since generic procedures arc fully adequate to represent die actions of sorting a file and 
performing the actual summarization, there is not reason to open code these operations in the cliche. This 
simplifies both the cliche and the programs which use the cliche. The aspects of file summarization which 
cannot be represented as a generic (i.e., the declaration of the summary file records and the functions which 
operate on them) arc retained in the cliche. 

Constructing the Program 

In Screen 42, the programmer begins die construction of the program MODEL_DEFECTS_REPORT by 
creating a file to hold the program, and then creating an empty definition for the program. He then specifies 
die basic structure of die program by combining die four cliches simplc_rcport, filc_cnumcration, 
file_sclection, and filc_summarization. 

The code which results from combining these cliches is too large to show in one screen. The declarations 
in the program are shown in Screen 42a. Although some of the declarations come from the cliches 
filc_sclcction and simplc_rcport, most of the declarations come from the cliche file_summarization. 

The body of the program is shown in Screen 42b. The body is divided into three logical parts. The first 
loop comes from the cliche filc_sclcction. The next three lines come from the cliche file_summarization. The 
rest of die body is a simplc_rcport whose enumerator is a file_enumeration. The printjtcm and 
columnjicadings have been automatically filled in by the functions C0RRESP0NDING_PRINTING and 
C0RRESP0NDING_HEADINGS. Since no cliche is defined for the printing of a summary, these fiinctions 
generated the appropriate code based on die declaration of the file SUMMARIES. 
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Ada Scenario 


c-X c-F Find file <KBE.DEMO>MODEL_DEFECTS_REPORT. ADA 

(New File) 

s-X Define a procedure MODEL_DEFECTS_REPORT. <end> 

s-X Insert a simple_report of a file_enumeration of a file_summarization of 
_ a fi 1 e_sel ection of DEFECTS. <end> ___ 

flft/i CALENDAR, FUNCTIONS, DIRECT_I0, MAINTENANCE_FILES, TEXTS; 
use CALENDAR, FUNCTIONS, MAINTENANCE_FILES, TEXTS; 
procedure MODEL_DEFECTS_REPORT Is 
use DEFECT_I0, INTS; 

package SELECTI0N_I0 Is new DIRECT_IO(DEFECT_KEY_TYPE); 
use SELECTIONS ; 

SELECTIONS: SELECTIONS. FILE_TYPE; 

type SUMMARY_TYPE Is 
record 

COUNT: INTEGER; 

KEY: DEFECT_KEY_TYPE; 
end record; 

package SUMMARYS Is new DIRECT_IO(SUMMARY_TYPE ); 
use SUMMARYS; 

SUMMARIES: SUMMARYS. FILE_TYPE; 

CURRENT_DATE: constant STRING := FORMATJDATE(CLOCK ); 

DATA: {}; 

DATUM: {>; 

DEFECT: DEFECTJTYPE; 

REPORT: TEXTS. FILEJTYPE; 

SUMMARY: SUMMARY_TYPE; 

TITLE: STRINGil ..{}); 

function BUILD_SUMMARY(COUNT: INTEGER; KEY: DEFECT_KEY_TYPE) 

return SUMMARY_TYPE Is 

begin return SUMMARY_TYPE'(COUNT, KEY); end BUILD_SUMMARY; 
function SUMMARY_GREATER_THAN(X: SUMMARY_TYPE; Y: SUMMARY_TYPE) 

return BOOLEAN Is 

begin return X.COUNT > Y.COUNT; end SUMMARY_GREATER_THAN; 
procedure SORT_SELECTIONS Is 

new SORT_FILE(DEFECT_KEY_TYPE, SELECTIONS. FILE_TYPE, 

SELECTIONS. POSITIVE_C0UNT); 
procedure SORT_SUMMARIES Is 

new SORT_FILE( SUMMARY_JYPE, SUMMARYS. FILESPE, 

SUMMARYS. POSITIVE_COUNT,SUMMARY_GREATERSAN ); 
procedure SUMMARIZE_SELECTIONS Is 

new SUMMARIZE_FILE(DEFECT_KEY_TYPE, SELECTIONS. FILEJTYPE, SUMMARY_TYPE, 
SUMMARYS. FILE_TYPE, BUILD_SUMMARY); 

procedure CLEAN_UP Is 
begin 

SET_OUTPUT(STANDARD_OUTPUT); 

CLOSE(DEFECTS); CLOSE(REPORT); CLOSE(SELECTIONS); CLOSE(SUMMARIES); 
exception 

when STATUS_ERROR => return; 
end CLEAN_UP; 


KBEmacs (ADA) <KBE.DEM0>M0DEI_DEFECTS_REPORT.ADA 


Screen 42a 



A I .aigc Program 


123 


begin 

OPEN(DEFECTS, IN_FILE, DEFECTS_NAME ); CREATE( REPORT, 0UT_FILE, 
CREATE(SELECTIONS, INOUT_FILE); CREATE(SUMMARIES, INOUT_FILE ); 
DATA := DEFECTS; 

while not {the empty_test of the enumerator}(DATA) loop 
DATUM := {the element_accessor of the enumerator}(DATA); 

If {the select1on_test}(DATUM) then 

WRITE(SELECTIONS, {the defect_key_accessor}(DATUM)); 
end If; 

DATA := {the step of the enumerator}(DATA ); 
end loop; 

SORT_SELECTIONS(SELECTIONS); 

SUMMARIZE_SELECTIONS(SELECTIONS, SUMMARIES); 

SORT_SUMMARIES(SUMMARIES ); 

SET_OUTPUT(REPORT); 

TITLE := {the title}; 

NEW_LINE(4); SET_COL(ZO); PUT(CURRENT_DATE); NEU_LINE(2); 
SET_C0L(13 ); PUT(TITLE); NEW_LINE(60); 
while not END_OF_FILE(SUMMARIES) loop 
READ(SUMMARIES, SUMMARY ); 

If LINE > 54 then 

NEW_PAGE; NEW_LINE; PUT("Page : "); PUT(INTEGER(PAGE-1), 
SET_C0L(13); PUT(TITLE); SET_COL(6l); PUT(CURRENT_DATE); 
PUT (" # Key Name"); NEW_LINE(2); 
end If; 

READ(DEFECTS, DEFECT, SUMMARY.KEY); 

PUT(SUMMARY.COUNT, 3); SET_C0L(5); PUT(SUMMARY.KEY); 
SET_C0L(12); PUT(DEFECT.NAME); NEU_LINE; 
end loop; 

{the summary }; 

CLEAN-UP; 

exception 

when DEVICE_ERR0R \ END_ERR0R | NAME_ERROR \ STATUS_ERROR => 
CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN-UP; raise; 
end M0DEL_DEFECTS_REPORT ; 


KBEmacs (ADA) <KBE.DEMO>M0DEL_DEFECTS_REPORT.ADA 


"report.txt "): 


3); 

NEW_LINE(2); 


Screen 42b 
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Ada Scenario 


The Cliche AlLC'hainsJ'.numeration 

In Screen 43, the programmer fills in the enumerator of the filc_sclection. He docs this using the cliche 
all_chains_cnumeration (see Appendix A). This cliche has two primary roles: the nminjilc and the chainJlle. 
It enumerates all of the records in the chainjllc which arc in chains that start from any of the records in the 
main_filc. It docs this by enumerating all of the records in the main_flle and enumerating the chain of 
records starting with each of the main_filc records. In as much as this is die ease, the cliche is a combination 
of the cliches file_cnumcration and chain_cnumeration. 

The highlighting in Screen 43 indicates the code which comes from the cliche all_chains_cnumcration. (In 
the interest of brevity, the declarations in the program MODEL_DEFECTS_REPORT will not be shown in the next 
few screens. They will be discussed again at the end of the scenario.) 

The primary area of complexity in the cliche all_chains_cnumcration is that it is, in a sense, turned 
inside-out. One might expect diat the most natural way to write the cliche would be as a nested loop with the 
outer loop enumerating main_file records and the inner loop enumerating chain_filc records. However, the 
cliche is actually written so that the inner loop enumerates main_file records and the outer loop enumerates 
chain_filc records. It is important that it be done this way so diat die cliche will fit into all of die places where 
a simple linear enumerator is expected. 
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s-F Fill the enumerator with an all_chains_enumeration of UNITS and REPAIRS. <end> 


begin 

OPEN(DEFECTS, IN_FILE, DEFECTS_NAME); OPEN(REPAIRS, IN_FILE, REPAIRS_NAME); 
OPENiUNlTS, IN_FILE, UNITS_NAME ); CREATE(REPORT, 0UT_FILE, "report.txt"); 
CREATE(SELECTIOi\IS. IN0UT_F ILE); CREATE (SUMMARIES , INOUT_FILE); 

&PAIR_INDEX := NULL_INDEX; 
loop 

while NULL_INDEX{REPAIR_1NDEX) and not END_OF_FILE(UNITS) loop 
READ(UNITS, UNIT)-, 

REPAIR_INDEX := UNIT.REPAIR; 
end loop; 

exit when NULL_INDEX(REPAIR_INDEX); 

READ(REPAIRS, REPAIR, REPAIR_INDEX); 
if {the selection_test}(REPAI/?) then 

WRITE(SELECTIONS, {the defect_key_accessor}( REPAIR) ); 
end if; 

REPAIR_INDEX := REPAIR.NEXT; 
end loop; 

S0RT_SELECTIONS(SELECTIONS); 

SUMMARIZE_SELECTIONS(SELECTIONS, SUMMARIES); 

SORT_SUMMARIES(SUMMARIES); 

SET_OUTPUT(REPORT); 

TITLE := {the title}; 

NEW_LINE(4); SET_COL(20); PUT(CURRENT_DATE); NEW_LINE(2); 

SET_C0L(13); PUT(TITLE); NEW_LINE(60); 
while not END_0F_FILE(SUMMARIES) loop 
READ(SUMMARIES, SUMMARY); 
if LINE > 54 then 

NEW_PAGE; NEW_LINE; PUT("Page: ”); PUT(INTEGER!PAGE-1), 3); 

SET_C0L(13); PUT(TITLE); SET_COL(6l); PUT(CURRENT_DATE); NEW_LINE(2); 
PUT(" It Key Name"); NEW_LINE(2); 
end if; 

READ(DEFECTS, DEFECT, SUMMARY.KEY); 

PUT(SUMMARY.COUNT, 3); SET_COL(5); PUT(SUMMARY.KEY); 

SET_C0L(12); PUT(DEFECT.NAME); NEW_LINE; 
end loop; 

{the summary}; 

CLEAN.UP; 

exception 

when DEVICE_ERROR | END_ERR0R | NAME_ERROR | STATUS_ERROR => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEANJJP; raise; 
end MODEL_DEFECTS_REPORT; 
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Ada Scenario 


Specifying the Selection. Test 

In Screen 44, the programmer uses direct editing to fill in tine sclcction.tcst. In order to specify the 
sclcction.tcst, lie makes use of several inline cliche references. The cliche qucry_uscr_for_kcy has been 
discussed above. 

The function QUERYJJSER_F0R.DATE (defined in the package FUNCTIONS) takes a prompt string as its 
argument and reads in a value of type TIME. This computation is implemented as a function rather than a 
cliche because it can be easily and efficiently represented that way. As always, cliches arc only used when 
other mechanisms are inadequate. 

The cliche prcjoop.computation (shown below) is needed in order to specify that die user is to be 
queried only once before the loop starts instead of on each cycle of the loop. The cliche 
prcjoop.computation is has one principal role: the item. It makes this value available as an output on each 
cycle of a loop. The cliche is convenient because it allows the embedded cliche references in Screen 44 to be 
written as simple expressions. Without this cliche, die programmer would have to insert die code for 
querying the user before the beginning of the loop and explicitly introduce variables to carry the values into 
the loop. 

cliche PRE_L00P_C0MPUTATI0N is 
primary roles ITEM; 
described roles ITEM; 

comment "makes the value (the item} available inside of a loop"; 
constraints 

RENAME("DATA_VALUE", SUGGEST_VARIABLE_NAME({the item})); 
end constraints; 

DATA.VALUE: {}; 

begin 

DATA.VALUE := (the item}; 
loop 

(DATA..VALUE, the output data.value}; 
end loop; 

end PRE_L00P_C0MPUTATI0N; 

In Screen 44, die programmer also specifics diat the dcfcct_kcy_accessor should access the DEFECT field of 
the selected repair records. 
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s-N direct editing 


begin 

OPEN(DEFECTS , IN_FILE, DEFECTS_NAME); 0PEN(REPAIRS, IN_FILE, REPAIRS_NAME); 

OPEN(UNITS, IN_FILE, UNITS_NAME); CREATE(REPORT, OUT_FILE, "report.txt"); 

CREATE(SELECTIONS, INOUT_FILE); CREATE(SUMMARIES, INOUT.FILE); 

REPAIR_INDEX := NULL_INDEX; 
loop 

while NULL_INDEX(REPAIR_INDEX) and not END_OF_FILE(UNITS) loop 
READ(UNITS, UNIT); 

REPAIR_INDEX := UNIT.REPAIR; 
end loop; 

exit when NULL_INDEX(REPAIR_INDEX); 

READ(REPAIRS , REPAIR. REPAIR_INDEX); 

if UNIT.MODEL - {a pre_Toop_computat1on of a query_user_for_key of MODELS } 
and REPAIR.DATE >= 

{a pre_loop_computat1on of 

QUERY_USER_FOR_DATE("Start of Reporting Period")} then 
WRITE(SELECTIONS. REPAIR.DEFECT®, 
end if; 

REPAIR_INDEX := REPAIR.NEXT; 
end loop; 

S0RT_SELECTIONS(SELECTIONS); 

SUMMARIZE_SELECTIONS(SELECTIONS, SUMMARIES); 

SORT_SUMMARIES(SUMMARIES); 

SET_OUTPUT(REPORT); 

TITLE := {the title}; 

NEW_LINE(4); SET_COL(20); PUT(CURRENT_DATE); NEW_LINE(2); 

SET_COL(13); PUT(TITLE); NEW_LINE(60); 
while not END_0F_FILE(SUMMARIES) loop 
READ(SUMMARIES. SUMMARY); 
if LINE > 54 then 

NEW_PAGE; NEW_LINE; PUT("Page: "); PUT(lNTEGER(PA6E-l), 3); 

SET_COL(13); PUT(TITLE); SET_COL(61); PUT(CURRENT_DATE); NEW_LINE(2); 

PUT(" # Key Name"); NEW_LINE(2); 

end if; 

READ(DEFECTS , DEFECT, SUMMARY.KEY); 

PUT(SUMMARY.COUNT, 3); SET_COL(5); PUT(SUMMARY.KEY); 

SET_COL(12); PUT(DEFECT.NAME); NEW_LINE; 
end loop; 

{the summary}; 

CLEANJJP; 

exception 

when DEVICE_ERROR | END_ERROR | NAME_ERROR | STATUS_ERROR => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end MODEL_DEFECTS_REPORT; 


KBEmacs (ADA) <KBE.DEMO>MODEL_DEFECTS_REPORT.ADA 


Screen 44 
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In Screen 45, the programmer uses the fcnowfedfHMNal cqmmad "4**1y*«" in order to see the 
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s-A Analyze the procedure MODEL_DEFECTS_REPORT. <end> 


begin 

OPEN(DEFECTS, IN_FILE, DEFECTS_NAME); 0PEN(M0DELS, IN_FILE, MODELS_NAME ); 

0PEN(REPAIRS, IN_FILE, REPAIRS_NAME); OPEN(UNITS, IN_FILE, UNITS_NAME); 

CREATE(REPORT, 0UT_FILE, "report.txt”); CREATE(SELECTIONS, INOUT_FILE); 

CREATE(SUMMARIES , INOUT_FILE); 

Qoop 

begin 

NEU_LINE; PUT("Enter Model Key: "); 

GET(MODEL_KEY ); 

READiMODELS, MODEL, MODEL_KEY ); 
exit ; 
exception 

when END_ERROR => PUT("Invalid MODEL Key"); NEW_LINE; 
end; 

end loop; 

DATE := QUERY_USER_FOR_DATE("Start of Reporting Period"); 

REPAIR_INDEX := NULL_INDEX; 
loop 

while NULI_INDEX(REPAIR_INDEX) and not END_0F_FILE(UNITS) loop 

READ(UNITS, UNIT); 

REPAIR_INDEX := UNIT.REPAIR; 
end loop; 

exit when NULL_INDEX(REPAIR_INDEX); 

READ(REPAIRS, REPAIR, REPAIR_INDEX); 
if UNIT.MODEL = MODEL_KEY and REPAIR.DATE >= DATE then 
WRITE(SELECTIONS, REPAIR.DEFECT); 
end if; 

REPAIR_INDEX ;= REPAIR.NEXT; 
end loop; 

$ORT_SELECT10NS(SELECTIONS); 

SUMMARIZE_SELECTIONS(SELECTIONS, SUMMARIES); 

SORT_SUMMARIES(SUMMARIES); 

SET_OUTPUT(REPORT); 

TITLE := {the title}; 

NEW_LINE(4); SET_COL(20); PUT(CURRENT_DATE); NEW_LINE(2); 

SET_COL(13); PUT(TITLE); NEW_LINE(60); 
while not END_OF_FILE(SUMMARIES) loop 
READ(SUMMARIES, SUMMARY); 
if LINE > 54 then 

NEW_PAGE; NEW_LINE; PUT("Page: "); PUT(INTEGER(PAGE-l), 3); 

SET_COL(13); PUT(TITLE ); SET_C0L(6l); PUT(CURRENT_DATE); NEW_LINE(2); 
PUT(" # Key Name"); NEW_LINE(2); 

end if; 

READ(DEFECTS, DEFECT, SUMMARY.KEY); 

PUT(SUMMARY.COUNT, 3); SET_COL(5); PUT(SUMMARY.KEY); 

SET_C0L(12); PUT(DEFECT.NAME); NEW_LINE; 
end loop; 

{the summary}; 

CLEAN_UP; 

exception 

when DEVICE_ERROR | END_ERROR | NAME.ERROR | STATUS_ERROR => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end MODEL_DEFECTS_REPORT; 


KBEmacs (ADA) <KBE.DEMO>MODEL_DEFECTS_REPORT.ADA 
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Ada Scenario 


An I fficiency Modification 

In Screen 46 the programmer makes an interesting efficiency modification. In doing this he takes 
advantage of two properties of a chain of repair records. First, since all of the repairs in a chain apply to the 
same unit, they must all apply to the same model. Second, the repairs in a chain arc sorted in order of their 
dates, with the most recent repair first. Given these two properties it can be seen that if the sclcction_tcst fails 
on a given repair record, then it must fail for all of the rest of the records in the chain since these records 
apply to the same model and arc older. In order to take advantage of this fact, the programmer changes the 
program so that the enumeration of the repairs in a chain is cut short as soon as the sclcction_test fails. Under 
the assumption that the average repair chain is relatively long, and that relatively few repairs will actually be 
selected, this change leads to a dramatic improvement in efficiency. 

It would be nice if KBHmacs had been able to perform the above efficiency transformation itself. 
However given that this is not the ease, it is an important feature of the system that it docs not prevent the 
programmer from making the transformation. In fact. KiiKmacs continually displays program code to the 
programmer precisely so that he can make such changes. 

Finishing the Program 

In Screen47, the programmer finishes the program M0DEL_DEFECTS_REP0RT by filling in the title and 
removing the summary. The full code which results is shown in two parts. Screen 47a shows the declarations 
in the program. Highlighting is used to show all of the changes since Screen 42a. Screen 47b shows the body 
of the program. The linejimit is changed from 64 to 65 since zero lines arc required for the summary 
whereas the default assumption used by the constraint function SIZE_IN_LINES in the screens above was that 
the summary would produce one line of output. 



A Large'Program 


131 


direct editing 


begin 

OPEN(DEFECTS, IN_FILE, DEFECTS_NAME); 0PEN(M0DELS, IN_FILE, MODELSJYAME); 
0PEN(REPAIRS, IN_FILE, REPAIRS_NAME); 0PEN(UNITS. IN_FILE, UNITS.NAME); 
CREATE(REPORT, 0UT_FILE, "report.txt"); CREATE(SELECTIONS, INOUT_FILE); 
CREATE(SUMMARIES, INOUT_FILE); 
loop 
begin 

NEW_LINE; PUT("Enter Model Key: "); 

get(model_key); 

READ(MODELS, MODEL, MODELJCEY); 
exit; 
exception 

when END_ERR0R => PUT("Invalid MODEL Key"): NEW_LINE; 
end; 

end loop; 

DATE := QUERY_USER_FOR_DATE("Start of Reporting Period"); 

REPAIR_INDEX := NULL_INDEX; 
loop 

while NULL_INDEX(REPAIR_INDEX) and not END_OF_FILE(UNITS) loop 
READ(UNITS, UNIT); 

REPAIR_INDEX := UNIT.REPAIR; 
end loop; 

exit when NULL_INDEX(REPAIR_INDEX); 

READ(REPAIRS, REPAIR, REPAIR_INDEX); 
if UNIT.MODEL = M0DEL_KEY and REPAIR.DATE >= DATE then 
WRITE(SELECTIONS, REPAIR.DEFECT); 

REPAIR_INDEX := REPAIR.NEXT; 

&1 S 0 

REPAIR_INDEX := NULL_INDEX;Q 
end if; 
end loop; 

S0RT_SELECTIONS(SELECTIONS); 

SUMMARIZE_SELECTIONS(SELECTIONS, SUMMARIES); 

SORT_SUMMARIES(SUMMARIES); 

SET_OUTPUT(REPORT); 

TITLE := {the title}; 

NEW_LINE(4); SET_COL(20); PUT(CURRENT_DATE); NEW_LINE(2); 

SET_COL(13); PUT(TITLE); NEW_LINE(60); 
while not END_0F_FILE(SUMMARIES) loop 
READ(SUMMARIES, SUMMARY); 
if LINE > 54 then 

NEW_PAGE; NEW.LINE; PUT("Page: "); PUT(INTEGER(PAGE-l), 3); 

SET_COL(13); PUT(TITLE); SET_C0L(61); PUT(CURRENT_DATE); NEW_LINE(2); 

PUT(" # Key Name"); NEW_LINE(2); 

end if; 

READ(DEFECTS, DEFECT, SUMMARY.KEY); 

PUT(SUMMARY.COUNT, 3); SET_C0L(5); PUT(SUMMARY.KEY); 

SET_C0L(12); PUT(DEFECT.NAME); NEW_LINE; 
end loop; 

{the summary}; 

CLEAN_UP; 

exception 

when DEVICE_ERROR | END_ERR0R | NAME_ERROR | STATUS_ERROR => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 


KBEmacs (ADA) <KBE.DEMO>MODEL_DEFECTS_REPORT.ADA Screen 46 
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s-F Fill the title with (MODEL.NAME & " Defects since " & FORMAT_DATE(DATE)). <end> 
s-R Remove the summary. <end> 

s-<end> Finish editing the procedure MODEL_DEFECTS~REPORT. <end> 
c-shift-C Compiling MODEL_DEFECTS_REPORT 


Qith CALENDAR, FUNCTIONS, DIRECT_I0, MAINTENANCE_FILES, TEXT_I0; 
use CALENDAR, FUNCTIONS, MAINTENANCE_FILES, TEXT_I0; 

procedure MODE I_DEFECTS_REPORT is 

use DEFECT_I0, MODEL_IO, REPAIR_I0, UNIT_I0, INT_I0; 

package SELECTION_IO is new DIRECT_IO(DEFECT_KEY_TYPE); 
use SELECTION_10; 

SELECTIONS: SELECTI0N_I0.FILE_TYPE; 

type SUMMARY_TYPE is 
record 

COUNT: INTEGER: 

KEY: DEFECT_KEY_TYPE; 
end record: 

package SUMMARY_IO is new DIRECT_IO(SUMMARY_.TYPE); 
use SUMMARY_IO; 

SUMMARIES: SUMMARY_IO.FILE_TYPE; 

CURRENT_DATE: constant STRING := FORMAT_DATE(CLOCK); 

DEFECT: DEFECT_TYPE; 

DATE: TIME ; 

MODEL: MODEL_TYPE; 

MODEL_KEY: MODEL_KEY_TYPE ; 

REPAIR: REPAIR_TYPE ; 

REPAIR_INDEX: RF.PAIR_INDEX_TYPE ; 

REPORT: TEXT_I0.FILE_TYPE; 

SUMMARY: SUMMARY_TYPE; 

TITLE: STRING(J. .41): 

UNIT: UNIT_TYPE: 

function BUILD_SUMMARY(COUNT: INTEGER: KEY: DEFECT_KEY_TYPE) 

return SUMMARY_TYPE is 

begin return SUMMARY_TYPE'(COUNT, KEY); end BUILD_SUMMARY; 
function SUMMARY_GREATER_THAN(X: SUMMARY_TYPE; Y: SUMMARY_TYPE) 

return BOOLEAN is 

begin return X.COUNT > Y.COUNT; end SUMMARY_GREATER_THAN; 
procedure SORT_SELECTIONS is 

new SORT_FILE(DEFECT_KEY_TYPE, SELECTION_IO.FILE_TYPE, 

SELECTI0N_I0.POSITIVE_COUNT); 
procedure SORT_SUMMARIES is 

new SORT_FILE(SUMMARY_TYPE, SUMMARY_IO.FILE_TYPE, 

SUMMARY_IO.P0SITIVE_C0UNT,SUMMARY_GREATER_THAN); 
procedure SUMMARIZE_SELECTIONS is 

new SUMMARIZE_FILE(DEFECT_KEY_TYPE, SELECTION_IO.FILE_TYPE, SUMMARY_TYPE, 
SUMMARY_IO.FILE_TYPE, BUILD_SUMMARY); 

procedure CLEAN_UP is 
begin 

SET_OUTPUT(STANDARD__OUTPUT); 

CLOSE(DEFECTS); CLOSE(MODELS ); CLOSE(REPAIRS) ; CLOSE(UNITS); 

CLOSE(REPORT); CLOSE(SELECTIONS); CLOSE(SUMMARIES); 
exception 

when STATUS_ERROR => return; 
end CLEAN_UP; 


KBEmacs (ADA) <KBE.DEMO>MODEL_DEFECTS_REPORT.ADA 


Screen 47a 
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begin 

OPEN(DEFECTS, IM_FILE, DEFECTS_NAME); 0PEN(M0DELS, IN_FILE, MODELS_NAME); 

OPEN(REPAIRS, IN_FILE , REPAIRS_NAME); OPEN(UNITS, IN_FILE, UNITS_NAME); 

CREATE(REPORT, OUT_FILE, "report.txt"); CREATE(SELECTIONS, INOUT_FILE); 

CREATE(SUMMARIES , INOUT_FILE); 

loop 

begin 

NEW_LINE; PUT("Enter Model Key: "); 

GET(MODEL_KEY); 

READ(MODELS, MODEL, MODEL_KEY); 
exit: 
exception 

when END_ERROR => PUT("Invalid MODEL Key"); NEW_LINE; 
end; 

end loop; 

DATE := QUERY_USER_FOR_DATE("Start of Reporting Period"); 

REPAIR.INDEX := NULL.INDEX; 
loop 

while NULL_INDEX(REPAIR_INDEX) and not END_OF_FILE(UNITS) loop 
READ(UNITS, UNIT); 

REPAIR.INDEX := UNIT.REPAIR; 
end loop; 

exit when NULL_INDEX(REPAIR_INDEX); 

READ(REPAIRS, REPAIR, REPAIR_INDEX); 

if UNIT.MODEL = MODELJCEY and REPAIR.DATE >= DATE then 
WRITE(SELECTIONS, REPAIR.DEFECT); 

REPAIR_INDEX := REPAIR.NEXT; 
else 

REPAIR_INDEX := NULL_INDEX; 
end if; 
end loop; 

SORT_SELECTIONS(SELECTIONS); 

SUMMARIZE_SELECTIONS(SELECTIONS, SUMMARIES); 

SOR1_SUMMARIES(SUMMARIES); 

SET_OUTPUT(REPORT); 

TITLE := MODEL.NAME & " Defects since ” & FORMAT_DATE(DATE); 

NEW_LINE(4); SET_COL(20); PUT(CURRENT.DATE); NEW_LINE(2); 

SET_COL(13); PUT(TITLE ); NEW_LINE(60); 
while not END_0F_FILE(SUMMARIES) loop 
READ(SUMMARIES, SUMMARY); 
if LINE > 65 then 

NEW_PAGE; NEW_LINE; PUT("Page: "); PUT(INTEGER(PAGE-l), 3); 

SET_COL(13); PUT(TITLE); SET_C0L(61); PUT(CURRENT_DATE); NEW_LINE(2); 

PUT(" # Key Name"); NEW_LINE(2); 

end if; 

READ(DEFECTS, DEFECT, SUMMARY.KEY); 

PUT(SUMMARY.COUNT, 3); SET_COL(5); PUT(SUMMARY.KEY); 

SET_COL(12); PUT(DEFECT.NAME); NEW_LINE; 
end loop; 

CLEAN_UP; 
exception 

when DEVICE_ERROR | END_ERROR | NAME_ERROR | STATUS_ERROR => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end MODEL_DEFECTS_REPORT; 


KBEmacs (ADA) <KBE.DEMO>MODEL_DEFECTS_REPORT.ADA 


Screen 47b 
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Testing 

In Screen 48, the programmer tests the program MODEL_DEFECTS_REPORT. 

Evaluating the Commands Used 

The following summarizes the commands used to construct the program MODEL_DEFECTS_REPORT, 
replacing most of the direct editing with equivalent "Fill" commands. 

Define a procedure MODEL_DEFECTS_REPORT. 

Insert a simple_report of a fi1e_enumeration of a fi1e_summarization of 
a fi1e_selection of DEFECTS. 

Fill the enumerator with an all_chains_enumeration of UNITS and REPAIRS. 

Fill the selection_test with 

UNIT.MODEL = (a pre_loop_computation of a query_user_for_key of MODELS} 
and REPAIR.DATE >= {a pre_loop_computation of 

QUERY_USER_FOR_DATE("Start of Reporting Period")} 

Fill the defect_key_accessor with REPAIR.DEFECT. 
direct editing -- efficiency transformation. 

Fill the title with (MODEL.NAME & " Defects since ” & FORMAT_DATE(DATE)). 

Remove the summary. 

Comparison of these commands with the hypothetical directions for a human assistant reproduced below 
shows that they arc qualitatively similar. 

Define a simple report program MODEL_DEFECTS_REPORT. Query the user for a 
key of a record in the file MODELS and for a starting date. Enumerate all of 
the repairs performed on all of the units and select the repairs which have 
been performed on units of the specified model since the start date. Print a 
summarized report showing how many times each kind of defect occurs in these 
repairs. Print a title showing the specified model and the starting date. 

Do not print a summary. 

The key tiling to notice about this example is that the program MODEL_DEFECTS_REPORT is quite large. By 
dint of packing calls on simple I/O procedures several to a line and making use of generic procedures, it is just 
possible to fit the program in 110 lines. In contrast, the programmer only had to type 11 lines — 7 
knowledge-based commands (one of which includes several lines of program text), and the direct editing 
needed in order to support the efficiency transformation. 
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<select> A 


MODEL_DEFECTS_REPORT; 

Enter Model Key: 6A2 

Enter Date of Start of Reporting Period 
Month: 1 
Day: 1 
Year: 1980 

DISPLAY_REPORT; 

< 4 newlines> 

5/27/1985 

Gas Analyzer Defects since 1/ 1/1980 
<59 newlines> 

<page> 

Page: 1 Gas Analyzer Defects since 1/ 1/1980 5/27/1985 

# Key Name 

2 GA-32 Clogged gas injection port 
1 GA-11 Control board cold solder joint 

□ 


Ada Listener 


Screen 48 
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IV - Evaluation 

This chapter evaluates KBKmacs in three different ways. It evaluates the pragmatic usefulness of 
KBKmacs as a program construction tool. It summarizes the principal capabilities of the system and discusses 
die ways in which KBKmacs is a step in die direction of the PA. It compares KBKmacs with other, similar 
kinds of programming tools. 


KBEmacs as a Program Construction Tool 

During program construction, KBKmacs can provide very significant productivity gains. However, as is, 
KBKmacs is neither fast enough, robust enough, nor complete enough to be a practical tool. In order to fix 
these problems, the system would have to be rcimplemcntcd. 

Productivity Gains 

The most obvious benefit derived by using KBKmacs is diat it makes it possible to constaict a program 
more quickly. The exact increase in speed is difficult to assess. However, one way to make an estimate is to 
compare the number of commands the programmer has to type in order to construct a program using 
KBKmacs with the number of lines of code in the program produced. Figure 8 makes this comparison for the 
various programs and cliches constructed in the scenarios in Chapters II & III. ( The cliches PRINT_REPAIR 
and PRINT_REPAIR_HEADINGS are omitted because they show an anomalously high productivity gain due to 
the fact that diey are largely automatically generated.) 

Kor each program. Figure 8 shows the total number of lines of editing done by the programmer. This is 
computed as the number of knowledge-based commands which were used plus the number of lines of code 
which were directly inserted by the programmer. (The total does not include incidental knowledge-based 
commands such as telling KBKmacs that the program is finished or cosmetic editing requests such as 
renaming variables.) The total number of lines of editing is then divided into the number of lines of code in 
die resulting program in order to show the productivity gain. 


program 

KBEmacs 

commands 

direct 

editing 

total 

editing 

lines of 
code 

productivity 

gain 

REPORT-TIMINGS 

5 

3 

8 

19 

2 

MEAN-AND-DEVIATION 

2 

4 

6 

16 

3 

REPORT-WITH-SUBHEADINGS 

3 

5 

9 

37 

5 

MAINTENANCE_FILES 

5 

9 

14 

45 

3 

UNIT_REPAIR_REPORT 

6 

0 

5 

55 

9 

MODEL_DEFECTS_REPORT 

6 

5 

11 

110 

10 


Figure 8: Productivity gains due to using KBKmacs. 


The productivity gains vary from a factor of 2 to a factor of 10. There are four reasons for this variance. 

First, programs vary in the extent to which they contain idiosyncratic computation as opposed to 
computation corresponding to cliches. For example, die program UNIT_REPAIR_REPORT is composed almost 
exclusively of cliches while the package MAINTENANCE_FILES is composed primarily of idiosyncratic record 
declarations. 

Second, the cliches used in the scenarios differ significantly in how well they take advantage of constraints. 
Kor example, when constructing the programs UNIT_REPAIR_REPORT and MODEL_DEFECTS_REPORT 
constraints automatically specify a substantial number of die cliches used in the programs. 

Third, programming languages differ in how many lines of code arc required to express a given cliche. In 
general, Kisp cliches arc less than half die size of their Ada counterparts. The difference stems primarily from 
the fact that Kisp has very concise I/O facilities (c.g., die function FORMAT and die form WITH-OPf M-FILE) 
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and no data declarations. 

Fourth, programs and programming languages differ in how many details they have that KBLmacs can 
take care of automatically. The productivity gain from taking care of details is most evident in Ada programs 
where KBKmacs is able to take care of the variable declarations. 

At one extreme, productivity gains from using KBKmacs can be very low when constructing a Lisp 
program such as REPORT-TIMINGS which has a fair amount of idiosyncratic structure, docs not make 
particularly good use of constraints, and has only a few details which KBhmacs can take care of automatically. 
At die other extreme, the productivity gains can be very high when constructing an Ada program such as 
MOD EL_DEFECTS_RE PORT which has little idiosyncratic structure, makes good use of constraints, and has a lot 
of details which KBKmacs can take care of automatically. 

Although rapid implementation is the most obvious benefit KBKmacs, the increased reliability of die 
programs produced is at least as important. Both constraints and the use of predefined cliches reduce die 
number of errors in the programs produced. This reduction of errors is an important (though difficult to 
quantify) productivity gain in its own right because it saves time in later testing and debugging of the 
program. 

In order to get die full benefit of cliches, the programmer has to make a few compromises. In particular, 
the programmer has to try to diink as much as possible in terms of the cliches available so that cliches can be 
used as often as possible. Similar kinds of accommodations have to be made in order to fully benefit from a 
human assistant. 

It is important to note that while using cliches is advisable, it is not required. Rather, the benefits of die 
system gracefully degrade as cliches arc used less and less. For example, consider the issue of efficiency. 
Using cliches seldom leads to a program of optimal efficiency. However, the efficiency of die program can be 
improved by tailoring die code produced via cliches so that it takes advantage of various special features of 
the situation. The programmer can get any level of efficiency in die final program he desires depending on 
how hard he wants to work for it. At any level of efficiency, the program can be constructed faster with 
KBKmacs dian with other methods. 

Problems 

KBKmacs is a research experiment. Rapid prototyping and rapid evolution have been die only goals of 
die current implementation. As a result, it is hardly suiprising that KBKmacs is ncidicr fast enough, robust 
enough, nor complete enough to be used as a practical tool. 

The most obvious problem with die current implementation of KBKmacs is diat it is much too slow. 
Knowledge-based operations on large programs can take longer than 5 minutes. Kven simple operations on 
small programs take 5-10 seconds. In contrast, experience with interactive systems in general suggests that in 
order for a system to be judged highly responsive, operations must be performed in at most 1-2 seconds. In 
order to approach diis goal, KBKmacs would have to be speeded up by a factor of 100. 

In general, such large speed increases are not easy to obtain. However, in the case of KBKmacs, the 
required increase seems plausible. There is a lot of room for improvement because, up to now, efficiency has 
not been a goal of die KBKmacs implementation. As a result, most of the parts of the system are startlingly 
inefficient. (For example, the Ada parser used by KBKmacs was written in only a few days and is so primitive 
that it parses only about one line per second.) Hie last section of Chapter V discusses an experiment which 
shows how die central operations of KBKmacs can be straightforwardly speeded up by a factor of thirty. 

One might comment that it is not sufficient merely to make KBKmacs run acceptably fast on a Lisp 
Machine, because machines of diis power arc too expensive to use as programmer work stations. However, if 
the reduced cost of such computers coupled with the increased cost of programmers has not yet made such 
computers economical, it soon will. A basic goal of the PA project is to look forward into die future when 
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computers 10, or even 100, times as powerful as the Lisp Machine will be economical and investigate how this 
power can be harnessed to assist a programmer. 

Another severe problem with the current implementation is that it is fraught with bugs. KBHmacs 
operates correctly on the scenario shown above. However that scenario amounts to more than half of the 
testing the system has ever received. In addition, during this testing there has been no visible diminution in 
the rate at which bugs have been discovered. This suggests that only a small percentage of the bugs to be 
found have been detected so far. 

It appears that it is not practical to attempt to fix the bugs in the system without rewriting it completely. 
The problem is that, in its role as a continuing research experiment, the system has evolved so extensively and 
haphazardly beyond the scope of its original design that it is now very difficult to fix a bug without creating 
another one. The only solution to this is to start again with a new design which is compatible with what the 
system is now doing. 

Another problem with KBHmacs is that it doesn’t handle full Ada or even full Lisp. The system handles 
perhaps 90 percent of Lisp, but no more than 50 percent of Ada. (The specific deficiencies of KBHmacs in 
this regard are summarized in the next section and discussed in detail in Chapter V.) In order to be a practical 
tool, KBHmacs would have to be extended to deal with the complete target language in at least a minimal 
way. 

Another problem with KBHmacs as it stands is that the cliche library contains only a few dozen cliches (see 
Appendix A). Several lines of research (sec [Barstow 77; Rich 80; Rich & Waters 81]) suggest that hundreds 
of cliches are required for an understanding of even a small part of programming and that thousands of 
cliches would be required for a comprehensive understanding of programming. To a considerable extent 
there is no barrier to adding the additional cliches which are required. However, designing the exact cliches 
to use would be a lengthy task. Also, if a large number of cliches were defined, some sort of indexing facility 
would probably be required in order to help the programmer retrieve cliches. 

Fortunately, although the problems above are quite serious, it appears that they could be overcome by 
rcimplcmenting KBHmacs from scratch with efficiency, robustness, and completeness as primary goals. 
Unfortunately, since KBHmacs is quite large (some 40,000 lines of Lisp code) rcimplcmcntation would be an 
arduous task. As a result, it would probably be most practical to reimplement the system initially for a small 
language such as Pascal or basic Lisp rather than for a large language such as Ada. 

K BEmacs as a Step Toward the PA 

This section compares the capabilities supported by KBHmacs with the capabilities the PA is intended to 
support. It begins by discussing the depth of understanding of programs exhibited by KBHmacs and then 
summarizes the capabilities supported by KBHmacs. The next section outlines the additional capabilities 
which will be supported by the next demonstration system. 

The Depth of Understanding of KBEmacs 

One of the most fundamental ways to evaluate KBHmacs is to consider what aspects of programming it 
understands and what aspects it docs not understand. To a considerable extent, tit is boils down to a 
consideration of what can be represented by the plan formalism. The expressiveness of the plan formalism is 
summarized below and discussed further in Chapter V. 

Via the plan formalism. KBHmacs’ understands a variety of programming concepts — in particular data 
flow, control flow, inputs, outputs, loops, recursion, and subroutine calling. This is enough to form the basis 
for an understanding of what could be termed computational algorithms. However, it is not enough to be a 
complete understanding of programming. In particular, as will be discussed shortly, it docs not include an 
understanding of either data structures or specifications. 
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An important part of KBKmacs' understanding of computational algorithms is an understanding of the 
way in which programming languages represent computational algorithms. This knowledge is procedurally 
embedded in modules which translate back and forth between die plan formalism and various programming 
languages (see Chapter V). In particular, KBKmacs has a relatively comprehensive understanding of the 
language l isp and an illustrative understanding of the language Ada. 

It should be noted that, although KBKmacs’ understanding of computational algorithms is fairly extensive, 
there arc several areas where its understanding is either weak or nonexistent. For example, it has no 
understanding of non-local flow of control such as interrupts. As another example, although KBKmacs has a 
comprehensive understanding of single-entry loops and simple recursion, it has only a very weak 
understanding of multiple-entry loops, and multiple and mutual recursion. 

A primary limitation of KBKmacs steins from the fact diat the plan formalism docs not represent any 
information about data structures. As a result, the small amount of understanding of data structures 
incorporated into KBKmacs is supported by special purpose procedures. For example, KBKmacs’ support for 
Ada data declarations is wholly procedurally based. 

Another key limitation of KBKmacs stems from tire fact that the plan formalism does not represent any 
information about specifications. This makes it very difficult for KBKmacs to reason about whether or not a 
given algorithm is being used appropriately. (To a certain extent KBKmacs’ support for constraints can be 
used to make up for a lack of understanding of specifications — e.g., by explicitly specifying something that 
should follow generally from some specification.) 

The most important leverage provided by KBKmacs comes from an understanding of cliches. Via tire plan 
formalism and constraints, a wide variety of cliches can be represented. However, the cliches which can be 
represented are limited in the same ways in which the algorithms which can be represented are limited. In 
particular, KBKmacs has no understanding of tire specifications for various cliches or of ciichcd data 
structures. 

An important aspect of KBKmacs’ understanding of cliches is an understanding of how to perform a 
variety of operations on them. For example, KBKmacs knows how to instantiate a cliche and integrate it into 
a program. An additional aspect of KBKmacs' understanding of cliches is that the plan formalism can 
represent how a program was built up out of cliches. This supports operations such as creating 
documentation. 

Strongly Demonstrated Capabilities 

Several of the capabilities which the PA is intended to support arc strongly demonstrated by KBKmacs. 
Saying that a capability is strongly demonstrated is intended to imply two tilings. First, restricted to the 
domain of program construction, essentially die full capability that the PA is intended to possess is supported. 
Second, the capability is supported in a general way which demonstrates the efficacy of the key ideas 
underlying the PA (i.e., die assistant approach, cliches, and plans). 

Rapid program construction in terms of cliches — The dominant activity in the scenarios in the last two 
chapters is the building up of programs by combining algorithmic cliches. The programmer can use an 
instance of a cliche to fill in a role of another cliche, or insert it at an arbitrary place in a program. In either 
case, KBKmacs takes care of ensuring diat the instance of the cliche is appropriately integrated with die 
preexisting parts of the program. 

User definition of cliches — Simple syntactic extensions to Lisp and Ada are provided so that the 
programmer can define new cliches as easily as lie can define new subroutines. (Defining cliches is also as 
hard as defining subroutines — i.e., there is nothing at all easy about deciding exactly what cliches should be 
defined.) 

The fact diat it is easy for the programmer to define new cliches has two important benefits. First, it 
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makes it possible to readily extend KBKmaes into new domains of programming. Second, it makes it possible 
for the programmer to tailor the system so that it fits in better with his particular style of programming. 

Editing in terms of algorithmic structure — The knowledge-based commands make it possible for the 
programmer to operate directly on the algorithmic structure of a program. The essence of this is the ability to 
refer to the roles of the various cliches used to construct the program even after these roles have been filled in. 
Commands are provided for filling, removing, and replacing these roles. 

Hditing in terms of algorithmic structure elevates the level of interaction between the programmer and 
KBKmaes to a fundamentally higher plane than text-based or syntax-based editing. Such editing makes it 
possible to state simple algorithmic changes to a program as simple commands even when the algorithmic 
changes require widespread textual changes in the program. For example, the command "Insert a count 
of the element ." in Screen 13 causes changes to four separate parts of the program MEAN-AND-DEVIATION. 

As will be discussed in detail in Chapter V, an unfortunate limitation of KBKmaes is that it docs not have a 
full understanding of the algorithmic structure of a program unless the program has been built up from 
cliches using KBKmaes. If the program was created by ordinary text editing, or if the structure of the 
program in terms of cliches has been modified by ordinary text editing, then KBKmaes docs not have any 
understanding of the structure of the program in terms of cliches. When this is the ease, the programmer can 
only refer to roles which have not yet been filled in. 

Escape to the surrounding environment — At any moment, die programmer can operate on the program 
being edited w'ith any of the standard I.isp Machine programming tools. In particular, he can freely intermix 
text-based editing and syntax-based editing with knowledge-based editing. (The high degree to which these 
modes can be intermixed is illustrated by the fact that, in addition to pausing in the middle of 
know ledge-based editing to perform text-based editing, one can use die notation "{a ...}" to effectively 
pause in the middle of text-based editing and issue a delayed request for knowledge-based editing.) 

Escape to die surrounding environment is of particular importance because it gives the KBKmaes system 
the property of additivity. New capabilities arc added to the programming environment without removing 
any of the standard capabilities. 

When using KBKmaes. the only limitation on escape to the surrounding environment is that, as mentioned 
above, KBKmaes is not capable of determining the structure of a program in terms of cliches once die 
program has been modified by text-based or syntax-based editing. Note however, that this leads only to a 
partial degradation in the ability of KBKmaes to operate on die program — some knowledge-based 
commands (e.g., replacing a filled role with something new) are no longer supported, but most 
knowledge-based editing can still continue. 

Substantial programming language independence — As will be discussed in detail in Chapter V, the 
internal operation of KBKmaes is to a large extent language independent. The scenarios above show that the 
operations supported by KBKmaes arc as appropriate for die language Ada as for Lisp. 

'lhc phrase "language independent" is only intended to mean diat die system can be used in one language 
as well as in another. It is not intended to mean diat die system can translate programs from one language to 
another. 'Translation cannot be trivially supported because, as discussed in the beginning of Chapter III, 
cliches in different programming languages differ semantically as well as syntactically. However, as will be 
discussed in Chapter VI, cliches and the plan formalism do have a significant amount of leverage on the task 
of program translation. 

Weakly Demonstrated Capabilities 

KBKmaes demonstrates a number of capabilities which the PA is intended to support in addition to the 
ones discussed above. However, these additional capabilities are only weakly demonstrated. Saying that a 
capability is weakly demonstrated is intended to imply two diings. First, even restricted to die domain of 
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program construction, only parts of the capability arc supported. Second, the capability is not supported in a 
general way. However, the weakly demonstrated capabilities arc better than mere mockups because, like the 
strongly demonstrated capabilities, they arc based on the key ideas underlying the PA and their 
implementation illustrates the leverage of these ideas. 

A library of cliches — KBHmacs contains a plan library containing several dozen predefined cliches. This 
example cliche library is weak in two ways. First, as mentioned above, thousands of cliches would be required 
in order to represent a comprehensive understanding of programming. Second, the library docs not support 
any kind of indexing scheme. The only way that cliches can be referred to is explicitly by name. 

Reasoning by means of constraints — KBHmacs uses simple constraint propagation in order to determine 
some of die consequences of die programmer's design decisions. When defining a cliche the programmer can 
specify various constraints between die roles. When die cliche is instantiated, diese constraints arc checked 
whenever any of the roles arc filled or changed. This makes it possible to propagate information from one 
role to another. As shown in the scenarios above, constraints can be used both to reduce the number of roles 
which have to be specified by die programmer and enhance the reliability of the programs produced. 

As discussed in die beginning of Chapter Ill, there is a significant weakness in die way constraints are 
implemented in KBHmacs. Constraints are specified in terms of functions which operate directly on die 
internal implementation of die plan formalism. In principle, this allows arbitrarily complex constraints to be 
stated. However, in practice, this significantly limits the constraints which can be stated. T he problem is that 
users are not expected to have any knowledge of the internal implementation of the plan formalism and, in 
any event, this internal implementation is very cumbersome to deal with. 

Taking care of details — The earliest PA proposals [Rich & Slirobe 76,78; Waters 76] suggested that taking 
care of details was an area where the PA approach had great promise. However, little support for this was 
provided until quite recently, when KBHmacs was extended to support Ada. The experience with Ada has 
clearly shown die utility and importance of taking care of details. Consider for example, die way KBHmacs 
can generate most of the variable declarations and package references in an Ada program and the special 
purpose support KBHmacs provides for making sure that each data file in die reporting programs created in 
Chapter III is opened and closed exactly once. 

The weakness of KBHmacs’ support for taking care of details is two fold. First, diis capability is not 
supported in any kind of uniform way. Rather, several relatively unrelated examples are supported. Second, 
only a few examples arc supported and these examples are not robustly supported. 

All of the capabilities mentioned so far pertain primarily to program construction. KBHmacs provides 
limited support for two additional capabilities which illustrate how die system could be extended into other 
parts of the programming process. 

Program modification -- KBHmacs supports two commands ("Share" and "Replace") which support 
program modification. In addition, constraints and editing in terms of algorithmic structure facilitate 
modification. 'Hie scenarios above show die utility of each of diese features during program modification. 
The way the features arc supported shows the leverage the plan formalism has on die program modification 
task. However, KBHmacs' support for program modification can really only be said to have scratched the 
surface. All that has been done is to support a few simple things which follow straightforwardly from the 
other operations supported by KBHmacs. 

Program documental ion — KBHmacs is able to create a simple comment describing a program and it can 
use highlighting to indicate how various roles arc filled in. In a related capability, KBHmacs keeps track of 
what roles have not yet been filled in and can report this to the programmer. Again, diis capability only 
scratches the surface of what could be done. The goal is to illustrate the fact diat the plan formalism 
represents a significant amount of information which could be useful in producing documentation. 
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The Next Demonstration System as a Further Step Toward the PA 

The next demonstration system will differ from KBKmacs in two crucial ways. First, it will be based on 
the plan calculus developed by Rich [Rich 80.81] rather than on die simple plan formalism used by KBKmacs. 
This will give the new system a deeper understanding of programming. Second, the new system will 
incorporate a fourth key AI idea — general purpose automated deduction. This will make it possible for the 
new system to support several new kinds of capabilities. 

The Depth of Understanding of the Next Demonstration System 

As discussed above, there arc a number of fundamental aspects of programming of which KBKmacs has 
essentially no understanding. In fact, it is perhaps surprising that KBKmacs can do what it does when it 
understands so little. KBKmacs has been developed in a more or less conscious attempt to sec how much 
functionality can be wrung out of the limited understanding the system possesses, 'flic development has been 
successful both in showing that a great deal can be done and that there are fundamental limits to what is 
practical given this level of understanding. 

A fundamental goal of the next demonstration system is to show that moving to a higher level of 
understanding will allow for significantly more functionality. The new system will support this higher level of 
understanding by using die plan calculus. The plan calculus extends die plan formalism by adding in 
mechanisms for representing four kinds of information which are not represented by the plan formalism. 

First, die plan calculus represents data structures and data structure cliches as easily as computational 
algorithms. This will make it possible to apply all of the basic capabilities of the system (e.g., rapid 
construction in terms of cliches) to data structures as well as to computational algorithms. (As can be seen in 
die construction of the package MAINTENANCE_FILES in Chapter Ill, KBKmacs has some abilities in this 
regard. However, diesc abilities are essentially simulated by representing data structure operations internally 
as computational operations.) 

Second, die plan calculus makes it possible to represent specifications for data structures, programs, and 
cliches. This will enable the new system to reason about which cliches are appropriate in a given situation and 
detect bugs when a cliche is used improperly. 

Third, die plan calculus supports several different mechanisms for representing interrelationships between 
cliches and between cliches and design concepts. One benefit of dris is that it will allow design concepts to act 
as an index into die cliche library — cliches will be referred to by the relevant design concepts radier than by 
specific names. The value of diis stems from die fact diat, while there arc several thousand important cliches, 
there arc probably only a few hundred important design concepts — large numbers of cliches correspond to 
the cross products of various sets of design concepts (for example, dierc is an enumerator for every kind of 
aggregate data structure). It is die design concepts which form die key vocabulary which the programmer and 
die system must have a mutual understanding of. 

Fourth, in the plan calculus, constraints are represented as predicate calculus expressions. (In KBKmacs, 
constraints are represented by procedures which are outside of the plan formalism.) Representing constraints 
as predicate calculus expressions has several advantages. Most importantly, since the constraints arc simply 
predicate calculus expressions, a user can specify a new constraint without having to have any knowledge of 
the internal implementation of die plan calculus. In addition, die new system will be able to reason about the 
constraints themselves — KBKmacs is limited to merely running diem. 

The discussion above presents a number of aspects of programming which KBKmacs docs not understand 
but which die next system will understand. It should be noted that there arc numerous aspects of 
programming which die new system will not understand cidicr. l or example, the plan calculus docs not 
remedy the defects in die plan formalism with regard to understanding non-local control flow, multiple-entry 
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loops, or multiple and mutual recursion. 

Generalized Automated Deduction 

General purpose automated deduction is best understood in contrast to reasoning performed by special 
purpose procedures. In a general purpose automated deduction system, not only the facts being reasoned 
about but also various theorems and other reasoning methods are represented as data objects. Only a few 
very basic reasoning methods (c.g., reasoning about equality) arc built into the system. 1 his makes it possible 
for a general purpose automated deduction system to reason about a wide range of problems and to flexibly 
use a wide range of knowledge when doing so. In addition, such a system can be straightforwardly extended 
by adding new theorems and new kinds of knowledge. In contrast, special purpose reasoning systems 
typically embed theorems in procedures. Such procedures arc fundamentally restricted in that each one 
solves a narrowly defined problem using a limited amount of knowledge. In order to attack a new problem or 
use additional knowledge, a new procedure has to be written. 

In the new system, general purpose automated deduction will be supported by a reasoning 
module [Rich 82,85] specially designed to work in conjunction with the plan calculus. The reasoning module 
will make it possible to significantly improve the support for many of the capabilities of KBEmacs. For 
example, the reasoning module will give a much firmer foundation for constraint propagation and 
modification capabilities. It should also make it easier for the system to take care of a wider variety of details 
for die programmer. 

Capabilities To Be Demonstrated By the Next System 

The new demonstration system will support all of the capabilities supported by KBEmacs. In addition, die 
combination of general purpose automated deduction and die plan calculus will make it possible for the new 
system to demonstrate three key capabilities which arc not demonstrated by KBEmacs. 

Contradiction detection — The most important use of die reasoning module will be contradiction 
detection. In contrast to automatic verification (which seeks to prove diat a program sadsfics a complete set of 
specifications), contradiction detection starts with whatever partial specifications arc available for a program 
and locates bugs in die program by discovering any obvious contradictions. 

Data type checking (c.g., as performed by an Ada compiler) is a simple example of contradiction detection. 
A date type checker locates contradictions based on specifications for the date types of various quantifies. 
The new system will be much more powerful than a type checker because it will be able to utilize a much 
wider variety of specifications. The system will also be more flexible than current type checkers because it 
will not require diat every contradiction detected be immediately fixed. It is often important to be able to 
temporarily ignore minor problems so that more serious problems can be investigated (e.g., through testing). 

As an example of the utility of contradiction detection, consider the following. Since KBEmacs does not 
support any contradiction detection, the system has no way to determine whether a set of commands is 
reasonable. Rather, it just docs whatever the programmer says. For example, if the programmer had told 
KBEmacs to implement die enumerator in the program UNIT_REPAIR_REP0RT as a vector-enumeration of 
REPAIRS, KBEmacs would have gone right ahead and done it. In contrast, the next demonstration system 
will be able to complain diat such a command docs not make any sense. 

The major benefit of contradiction detection is that it is largely orthogonal to program testing. The bugs 
which arc easy to find by contradiction detection arc often quite different from the bugs which arc easy to 
find by testing. As a result, applying contradiction detection in addition to program testing can significantly 
increase ones confidence in a program. 
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Recognition of the cliches which could have been used to construct a program — The PA will be able to 
recognize what cliches could have been used to construct a program no matter how the program was created. 
This will make it possible to fully support editing in terms of algorithmic structure at all times. As will be 
discussed in Chapter VI this also provides a basis for attacking the task of program translation. 

Interaction in terms of design decisions — The fundamental level of interaction between a programmer 
and KBHmacs is in terms of specific algorithms (cliches). An important goal of the next demonstration 
system is to go beyond this level of interaction and support interaction in terms of design decisions. For 
example, when constructing the program UNIT_REPAIR_REP0RT, the programmer had to specify the use of 
the cliche chain_cnumcration. In the new system the programmer will instead merely have to say that the 
repair records are in a chain file. The system will be able to conclude that in order to print a simplc_report of 
repairs, the cliche chain_cnumcration must be used. 

Graduating to the level of interaction in terms of design decisions will have a pervasive effect on the 
capabilities of die system. For example, the programmer will be able to go beyond editing in terms of 
algorithmic structure and edit in terms of design decisions. As another example, the focus will shift from 
defining small suites of cliches, to defining large classes of cliches which define die effects of design decisions. 
In addition, reasoning by propagation of design decisions will be used both as a primary basis for 
contradiction detection and in order to relieve the programmer from the need to specify things which are 
implied by other design choices. 

The PA 

Moving from KBEmacs to the next demonstration system, die emphasis will be on increasing die depth of 
understanding and diereforc the capabilities of the system. In contrast, when moving from the next 
demonstration system to the PA die emphasis will be on widening the range of applicability of the system 
beyond program construction. 

The next demonstration system will support most of the capabilities which the PA is intended to support. 
The PA will attempt to apply these capabilities to all of the phases of the programming process. In particular, 
the PA will focus on the tasks of requirements analysis and modification because these are inherently more 
important parts of the program life cycle than program construction. 
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This section compares KISKmacs with other approaches to improving programmer productivity. The 
comparison focuses on tools and projects which are either similar in their capabilities or based on closely 
related ideas. Projects which share ideas with KBHmacs in that they have intentionally used ideas from 
KBHmacs (or the PA project as a whole) are discussed in Chapter VI. 

KBE 

As discussed in Chapter I. KBHmacs is die second in a series of demonstration systems which arc heading 
in die direction of the PA. 'Ihc first demonstration system was die Knowledge-Based Editor (KBE). 
KBHmacs is implemented as an extension of KBIT and for the most part, the capabilities of KBR 
(see [Waters 82a]) arc a subset of the capabilities of KBHmacs. 

Rapid program construction in terms of cliches and editing in terms of algorithmic structure were die main 
focus of KBE. In these areas, KBE supported essentially die same capabilities as KBHmacs in essentially the 
same way. In addition, KBE provided die same weak support for program modification that KBHmacs 
provides. 

The most obvious difference between KBE and KBEmacs is diat while KBE was a stand-alone system, 
KBHmacs is embedded in the standard Lisp Machine Emacs-style program editor. As part of this change, 
KBEmacs provides much better support for escape to the surrounding environment. (As an additional 
feature in diis direction, KBEmacs introduced die ability to use the notation ”{a ...}" when text editing.) 
Although a programmer could apply text-based editing to a program constructed using KBE this could not be 
done until after all of die roles had been filled in. 

KBEmacs supports a number of capabilities which were not supported by KBE at all. For example, 
KBEmacs supports a syntactic representation for cliches which allows a programmer to easily define new 
cliches. The most important part of diis is die ability to use {...} annotation for input from the programmer 
as well as output to the programmer. In addition, KBEmacs introduces support for constraints and program 
documentation. 

Another advance of KBHmacs is that it introduces support for Ada. (KBE only supported Lisp.) As part 
of this, KBEmacs provides greatly increased support for taking care of details. The speed and robustness of 
die system was also increased in order to make it possible to operate on Ada programs of realistic size. 
(Whereas the largest program ever constructed using KBE was only about 15 lines long, KBEmacs has been 
used to construct programs more than 100 lines long.) 

It is interesting to note that KBE supported a few features which are no longer supported by KBEmacs. 
Lor example, KBE was able to draw a diagram showing the plan which corresponded to die program being 
constructed. It turned out diat these diagrams were not very helpful because they were hard for people to 
read and understand. The basic problem is diat while simple diagrams arc very easy to understand (perhaps 
easier than the corresponding program), complicated diagrams arc almost impossible to understand (much 
harder than die corresponding program). As an example of this problem, consider dan flow. Explicit data 
flow arcs have very nice semantics and arc very easy to comprehend in isolation. However, if a diagram 
contains a large number of data flow arcs, dien die diagram has to be drawn with extraordinary care in order 
for the reader to be able to identify and follow the individual arcs (particularly when they cross). In order to 
render die various arcs legibly, the typical plan diagram requires from 100 to 1000 times die space of the 
corresponding program text. All in all, experience revealed diat program text was a much more useful user 
interface than plan diagrams. 

The argument above should not be taken to imply that graphical output is never useful. People seem to 
have a great affinity for structure diagrams and the like. However, note diat diese diagrams achieve simplicity 
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because an enormous amount of information is left out. In the realm of documentation it would probably be 
very useful for KBHmacs to be able to create simple diagrams which represent various subsets of the 
information in a plan. 

A subtle, but pervasive, difference between KBHmacs and KBH is that, while both systems arc based on 
die plan formalism, only KBH advertised this fact to the user. 

During die design of KBH, die assumption was made that, like the system, the user was diinking in terms 
of plans. It was considered incidental diat program text as opposed to plans was being displayed to the user. 
This led to die design of a language for knowledge-based commands which was couched in terms of plan 
concepts. 

However, experimentation with KBH revealed that programmers considered it far from incidental that 
program text was being displayed and that, in most situations, they preferred to talk in terms of the text rather 
dian in terms of the underlying plan. As a result, KBHmacs attempts wherever possible to project die image 
that it is operating in a primarily textual manner. This has progressed to the point where it is possible to tell 
someone how to use KBHmacs without mentioning the plan formalism at all. 

As an example of the way die interface to KBH evolved, consider the following. When the 
knowledge-based command language for KBH was first designed, one had to refer to an output port in a 
program in plan terms — one could not refer to it via the name of a variable carrying the value. For example, 
if a program contained the form "(SETQ X (CAR L) )", one was forced to refer to die value in die variable X 
as "the output of the CAR". It rapidly became clear that programmers felt that it was very important to 

be able to refer to ports via variable names and this capability was added into the command language. 
Simultaneously die ability to refer to ports (other than output roles) in plan tenns atrophied away because no 
one used it. 

Programming Environments 

KBHmacs is not intended to be a complete programming environment. Radier, it is intended diat 
KBHmacs coexist with a variety of other tools in a standard programming environment. Most programming 
tools (e.g., version control systems, high level design aids, flowchart drawers, systems for managing the 
programming process) are orthogonal to KBHmacs in that they provide capabilities which arc outside of die 
scope of die system. KBHmacs neither renders diese tools obsolete nor is rendered obsolete by diem. 

However, research on the PA is relevant to programming environments in general. It is part of a general 
research trend toward having a central repository containing a large amount of information about an evolving 
program and having a variety of tools which interact with this information. 

Current programming environments (sec for example [Dolotta76; Lisp 84]) allow various programming 
tools to be flexibly used together. However, the tools only interact loosely — little information other than 
program code is passed from one tool to anodier. 

In contrast, many researchers (see for example the work on PSL/PSA [Tcichroew 77], KBPA [Harandi 83], 
and KBS A [Green & Rich 83]) arc beginning to focus on environments of tightly interacting tools. The PA 
can be looked at as such an environment where a number of tools interact with a central knowledge base of 
plans. 
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Program Kditors 

KBEmacs is essentially a program editor and every effort lias been taken to ensure that programmers can 
think of it as an additive extension to a state-of-the-art program editor. However, this extension is a very 
powerful one. As a result. KBKmacs is quite different from other program editors. 

A key dimension on which to compare program editors is their level of understanding of the programs 
being edited (see Figure 9). The level of understanding is important because it determines the kinds of 
operations an editor can perform. 

The simplest program editors arc merely ordinary text editors which arc used for editing programs. r Phcse 
editors have no understanding of programs at all. The operations supported by these editors arc limited to 
operations on characters — c.g., inserting, deleting, and locating character strings. 


PROGRAM. EDITOR | LEVEL of UNDERSTANDING 


Text Editor 

1 

1 

1 

Character Strings 

Syntax Editor 

1 

1 

i 

Parse Trees 

KBEmacs 

1 

1 

Algorithmic Structure 

Next Demonstration System 

1 

1 

1 

1 

Design Decisions 


Figure 9: Levels of understanding exhibited by program editors. 


Some program editors incorporate an understanding of the syntactic structure of the program being edited 
(sec for example [Stallman 81; Donzeau-Gougc 75; Medina-Mora 81; Tcitclbaum 81]). I his makes it possible 
to support operations based on the parse tree of a program — c.g., inserting, deleting, and moving between 
nodes in the parse tree. 

An important aspect of syntax-based editors is that they can ensure that the program being edited is always 
syntactically correct. It has been shown [Reps 83] that syntax-based editors can succeed in utilizing essentially 
all of the information which has traditionally been expressed in terms of syntax (c.g., data type constraints). 

KBEmacs goes beyond existing program editors by incorporating an understanding of the algorithmic 
structure of the program being edited. By means of the plan formalism, KBEmacs understands what cliches 
were used to construct the program as well as the basic operations, data (low, and control flow in the program. 
This understanding makes it possible for KBEmacs to support operations based on algorithmic 
structure — e.g., instantiating cliches and filling roles. In addition, via constraints, KBEmacs can ensure 
certain aspects of the semantic correctness of the program being edited. 

The next demonstration system will take a step further by incorporating an understanding of the design 
decisions which undcrly the choice of algorithms in a program. This will make it possible for the programmer 
to converse with the system in terms of these decisions instead of in terms of specific algorithms. Levels of 
understanding much higher than those shown in Figure 9 arc possible — e.g., understanding the trade-offs 
which undcrly design decisions. Reaching these higher levels is a long term goal of the PA project. 

Syntax Editors 

An unfortunate aspect of syntax-based editors is that (with the notable exception of Emacs [Stallman 81]) 
early syntax-based editors significantly (if not totally) restricted the programmer's ability to use text-based 
editing commands. As discussed in detail in [Waters 82b], such restrictions arc frustrating in many ways. 
Syntax-based commands arc more convenient than text-based commands in many situations; however, there 
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is no reason why programmers should be forced to use syntax-based commands when they arc not more 
convenient. 

Although most syntax-based editors still do not support text-based commands, at least one recent 
syntax-based editor (SRK [Budinsky 85]) fully supports them. In keeping with the assistant approach, 
KBEmacs pays scrupulous attention to fully supporting text-based and syntax-based commands in addition to 
knowledge-based commands. 

An interesting aspect of syntax-based editors is die extent to which they support cliches. Almost every 
syntax-based editor provides cliches corresponding to the various syntactic constructs in the programming 
language being used. However, almost no syntax-based editor supports any other kind of cliche. To a certain 
extent this seems to be a missed opportunity (see the discussion of the Tempest editor [Sterpe 85] in 
Chapter VI). However, one cannot support more complex cliches in die same way that simple cliches 
corresponding to syntactic constructs arc supported. In particular, in order to be able to flexibly combine 
complex cliches, an editor must have an understanding of the semantic structure of the cliches. For example, 
if two cliches use the same variable, then one of die uses of this variable will, more than likely, have to be 
renamed before the cliches can be combined. The primary advantage of KBEmacs over syntax-based editors 
is diat, due to its understanding of semantic structure, KBEmacs can support die manipulation of complex 
cliches. 

Program Generators 

Program generators have the same overall goal as KBEmacs — dramaucally reducing the effort required 
to implement a program. Further, they arc in essence similar to KBEmacs in the way in which they reduce 
programmer effort — they embody knowledge of die clichcd aspects of a class of programs. Where program 
generators are applicable, they arc significantly more powerful than KBEmacs. However, program generators 
arc only applicable in certain narrow domains. 

In its purest form, a program generator obviates the need to have any programmer at all. An end user 
describes the desired results in a special problem-oriented language (or through some interactive dialog with 
the generator) and a program is produced automatically. A key aspect of this is that no one ever looks at the 
program produced — all maintenance is carried out at the level of the problem-oriented language. 

There is ample evidence diat a program generator can be created for any sufficiently restricted domain. 
An area where program generators have been particularly successful is data base management systems. 
Dozens of program generators in this area exist, perhaps die most successful of which is Focus [Focus 85]. 

The problem with program generators is their narrowness of scope. Even a tiny bit outside of its scope, a 
given program generator is nearly useless. In order to get the flexibility they need, programmers sometimes 
resort to using a program generator to make an approximately correct program and dicn manually modifying 
die code produced in order to get the program desired. Unfortunately, there are two major problems with 
this. First, even the smallest manual change forces further maintenance to be carried out at the level of the 
code instead of at the level of the problem-oriented language. Second, since the code created by a program 
generator is usually not intended for human consumption, it is typically quite difficult to understand and 
dierefore modify. 

The principal advantage of KBEmacs over program generators is diat it has a wide range of applicability. 
The prime domain of applicability of KBEmacs is defined by die contents of the cliche library. Within this 
prime domain, KBEmacs is somewhat similar to a program generator though its interface is very 
different — the key information which has to be specified to KBEmacs in order to create a program is similar 
to what must be specified to a program generator. Beyond the edge of its prime domain of applicability, 
K BEmacs is very different from a program generator — it continues to be useful because the programmer can 
freely intermix clichcd and non-clichcd computation. Instead of an abrupt reduction in utility, the utility of 
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KBKmacs is reduced gradually as one moves farther and farther from its prime domain. In addition, the 
prime domain can be extended by defining new cliches. 

The research on program generators is pursuing the goal of increasing the size and the complexity of the 
domains which can be handled. The PHI-nix system [Barstow 82] is an interesting example of a program 
generator in a complex domain. Given a description which is primarily composed of mathematical equations, 
PHI-nix is capable of generating complex mathematical modeling programs in die context of petroleum 
geology. In order to do diis, the system combines a variety of techniques including symbolic manipulation of 
mathematical expressions. 

The CAP system [Bassett 84] uses a few of the same ideas as KBKmacs in order to increase the size of the 
domain of applicability. In particular. CAP makes use of what is effectively a library of cliches rather than 
being solely proccdurally based. Using CAP, a programmer can build a program by combining frames 
(cliches) which have breakpoints (roles) that can contain custom code which becomes part of the generated 
program. The key weakness of CAP is that it does not have any semantic understanding of its frames and 
dicrcforc is limited in its ability to manipulate and combine them. 

It should be noted diat KBHmacs is not really in competition with die program generator approach. 
Although KBHmacs has some fundamental advantages over program generators, it docs not render them 
obsolete. Similarly, anything short of an all encompassing program generator would not render KBHmacs 
obsolete. Radicr, program generators and KBHmacs can be syncrgistically combined. Program generators 
incorporated into KBKmacs can be used to generate special purpose sections of code and KBHmacs can 
integrate diis code into die program being constructed. This makes it possible for the programmer to get die 
benefit of the program generator without being unduly limited by its narrow focus. (This is illustrated by die 
constraint function C0RRESP0NDING_PRINTING discussed in Chapter III.) 

Transformations 

Program transformations have important similarities to die cliches supported by KBHmacs. A program 
transformation takes a part of a program and replaces it with a new (transformed) part. Typically, a program 
transformation is correctness preserving in diat die new part of the program computes the same thing as the 
old part. The purpose of a transformation is to make the part better on some scale (c.g., more efficient or less 
abstract). For example, a transformation might be used to replace "X**2" with "X*X". 

As usually implemented, transformations have dirce parts. They have a pattern which matches against a 
section of a program in order to determine where to apply die transformation. They have a set of applicability 
conditions which further restrict die places where the transformation can be applied. Finally, they have a 
(usually procedural) action which creates the new program section based on the old section. 

There are two principal kinds of transformations: vertical and lateral. Vertical transformations define an 
expression at one level of abstraction in terms of an expression at a lower level of abstraction — for example 
defining how to enumerate die elements of a vector using a loop. Lateral transformations specify an 
equivalence between two expressions at a similar level of abstraction — for example specifying the 
commutativity of addition. Lateral transformations arc used principally to promote efficiency and to set 
things up properly so diat vertical transformations can be applied. 

The most common use of transformations is as the basis for transformational implementation systems. 
Such systems are typically used to convert programs expressed in a high level non-executable form into a low 
level executable form. In many ways, a transformational implementation system can be looked at as a special 
kind of a program generator. The principal difference between transformational implementation systems and 
program generators is that the knowledge of how to implement programs is represented in a data base of 
transformations rather dian in a procedure. This makes it easier to extend and modify a transformational 
implementation system; however, it brings up a new problem: controlling die application of transformations. 
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The difficulty is that, in a typical situation, many different transformations are applicable and different 
results will be obtained depending on which transformation is chosen. With regard to vertical 
transformations, the problem is not too severe because usually only a tew transformations will be applicable to 
a given abstract expression. However, the selection of lateral transformations typically has to rely on manual 
control. 

Existing transformational implementation systems can be divided into two classes: those that arc relatively 
limited in power but require no user guidance and those which are capable of very complex implementations 
but only under user guidance. TAM PR [Boyle 84] and PDS [Cheatham 84] use simple control strategics and 
restrictions on the kinds of transformations which can be defined in order to obviate die need for user 
guidance. PDS is particularly interesting due to its emphasis on having the user define new abstract terms and 
transformations as part of the programming process. 

PSI was one of the first systems to use a transformational implementation module for complex 
implementation. PSfs transformational module [Barstow 77] operated without guidance, generating all 
possible low level programs. It was assumed that another component [Kant 79] would provide guidance as to 
which transformations to use. Work on complex transformational implementation systems is proceeding both 
at the l)SC Information Sciences Institute [Balzer 81; Wile 82] and the Kestrel Institute [Green 81], A key 
focus of both these efforts has been attempting to automate the transformation selection process [Fickas 83]. 

An interesting system which bridges the gap between transformational implementation systems and more 
traditional program generators is Draco [Neighbors 84]. Draco is a transformational framework in which it is 
easy to define special purpose program generators. When using Draco to define a program generator for a 
domain, a "domain designer" follows the classic program generator approach of designing a problem-oriented 
language which can be used to conveniently describe programs in tire domain and then specifying how to 
generate programs based on die problem-oriented language. The contribution of Draco is that it provides a 
set of facilities which make it possible to specify the program generation process in a way which is primarily 
declarative as opposed to procedural. BNF is used to define the syntax of the problem-oriented language 
while lateral and vertical transformations are used to define its semantics. Procedures arc used only as a last 
resort. When a program is being implemented by a Draco-based program generator, the user is expected to 
provide guidance as to which transformations to use. 

In their essential knowledge content, KBFmacs’ cliches arc quite similar to vertical transformations. 
However, cliches arc used differently. Instead of applying correctness preserving transformations to a 
complete high level description of a program, the user of KBFmacs builds a program essentially from thin air 
by applying non-correctness preserving transformations. I his supports an evolutionary model of 
programming wherein key decisions about what a program is going to do can be deferred to a latet time as 
opposed to a model where only lower level implementation decisions can be deferred. 

A more important difference between cliches and transformations is that cliches operate in the domain of 
plans rather than program text or parse trees. I'his raises the level at which knowledge is specified from the 
syntactic to the semantic. In addition, cliches are completely declarative whereas the action of a 
transformation is typically proccdurally specified. Although KBFmacs does not make much use of this 
feature, the next demonstration system will. In particular, the new system will be able to reason about the 
action performed by a cliche in order to reduce the need for user guidance. 

Very High Level Languages 

The greatest increase in programmer productivity to date has been brought about by the introduction of 
high level languages. The advantage of high level languages is that they significantly ieduce the size of tlic 
code which is required to express a given algorithm by allowing a number of low level details (c.g., register 
allocation) to go unstated. The key to this is the existence of a compiler which takes care of the low level 
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details. 

A logical next step would he the introduction of a very high level language which would provide a further 
significant reduction in the size of program code by allowing a number of middle level details (c.g., data 
structure selection) to go unstated. The key to this in turn would be the existence of a very powerful compiler 
w hich could take care of these middle level details. 

The most persistent problem encountered by developers of very high level languages is that die more 
general purpose the language is, the harder it is to create a compiler which generates acceptably efficient low 
level code. This problem exists for high level languages as well. However, the inefficiencies have been 
reduced to a relatively low level and programmers have, for the most part, learned to live with them. 

Program generators can be looked at as compilers which support special purpose very high level 
languages. Several lines of research arc directed toward developing more general purpose very high level 
languages. For example, Hibol [Ruth 81] and Model [Cheng 84] arc very high level languages which are 
useful in business data processing applications. SFTL [Schwartz 75] achieves wide applicability while 
supporting several very high level operations. Significant progress has recently been made toward compiling 
SKTL efficiently (see [Frcudcnbcrgcr 83]). 

Much of the current research on transformations is directed toward the support of very high level 
languages — in the ease of the USC Information Sciences Institute die language Gist [Balzcr 81] and in the 
case of the Kestrel Institute the language V [Green 81]. Neither of these systems is complete. However, they 
hold die promise of eventually supporting truly general purpose very high level languages. 

The most important diing to say about die relationship between KBEmacs and general purpose very high 
level languages is that there is no competition between the approaches. Radier, they arc mutually reinforcing. 
As soon as a general purpose very high level language is developed, it can be used as the target language of 
KBEmacs. The net productivity gain will be die product of die gains due to die language and due to 
KBEmacs. The basic claim here is that no matter how high level a language is, dicre will be cliches in the way 
it is used and therefore KBEmacs can be usefully applied to it. 

Intelligent Design Aids 

The basic approach taken by KBEmacs transcends die domain of programming. KBEmacs is an example 
of a general class of AI systems which could be termed intelligent design aids. These programs are expert 
systems in the sense that they attempt to duplicate expert behavior. However, dicy are quite different from 
die more familiar kinds of expert systems which perform diagnostic tasks. 

A diagnostic expert system typically takes a relatively small set of input data and derives a relatively simple 
answer. For example, it might take a set of symptoms and derive the name of a disease. In order to derive the 
answer, die system performs relatively complex deductions utilizing a knowledge base of rules. The emphasis 
in such a system is on how to control the operation of die rules so diat die required deductions can be reliably 
and efficiently performed without human intervention. 

In an intelligent design aid die various components are die same but the emphasis is quite different. In 
particular, instead of generating a simple answer, a design aid generates a very complex answer— a complete 
design for die desired artifact. Just representing diis design is, of necessity, an important focus of the system. 
The knowledge base of rules contains various pieces of knowledge about how to design things. However, due 
both to gaps in this knowledge and lack of adequate control strategics, design aids arc not capable of very 
much automatic design. As a result, the major emphasis of a design aid is on how die user can control the 
selection of rules and provide specific aspects of die design when the rules arc inadequate. 

A good example of intelligent design aids outside of the domain of programming arc VLSI design systems. 
Comparison of [Sussman79] and [Rich & Waters 79] shows that die key ideas of the assistant approach, 
cliches, and plans can be used to support VLSI design in basically the same way diat diey can be used to 
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support programming. For example, the Vexed VLSI design system [Mitchell 85] is staitlingly similar to 
KBHmacs. The interface is different and the domain is of course very different, however the basic capabilities 
arc very much the same. The dominant activity is building up a circuit by means of implementation rules 
(cliches) chosen from an extendable library. While this is going on. Vexed automatically hikes care of a 
number of details centering around combining the rules correctly. In addition, the user is always free to 
modify the circuit directly. 

Reusable Components 

The reuse of components is a common theme which underlies KBHmacs and almost every approach to 
increasing programmer productivity [Reuse 84], There arc many different ways in which components can be 
represented — e.g., cliches, subroutines, transformations, and proccdurally in compilers and program 
generators. Flowcver, in all these eases, the goal is the same. Essentially die only way to significantly reduce 
the time it takes to design something is to take advantage of predesigned components. 

As discussed in detail in [Rich & Waters 83], KBHmacs benefits from the fact that die cliches expressed in 
die plan formalism are a particularly good representation for components. Plan cliches arc capable of 
representing a very wide range of components. Their expressiveness is particularly enhanced by the flexibility 
introduced by roles and constraints. (Only the procedural representation of components is more expressive.) 
Plan cliches have very convenient combination properties. They can be combined together as easily (and 
understandably) as subroutine calls. Plan cliches are represented in a declarative way. 1 his makes it easy for 
an automatic system to manipulate them and reason about them. Finally, plan cliches are inherently 
programming language independent. T his facilitates the construction of programming tools which are 
programming language independent. 
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V-Implementation 

Figure 10 shows the architecture of the KBKmacs system. KBHmacs maintains two representations for the 
program being worked on: program text and a plan. At any moment, the programmer can either modify the 
text or the plan. If the text is modified, the analyzer module is used to create a new plan. If the plan is 
modified, the coder module is used to create new program text. 

In order to modify the program text, the programmer can use the standard Kmacs-stylc Lisp Machine 
editor. In order to modify the plan, the programmer can use the knowledge-based editor implemented as part 
of KBHmacs. An interface unifies ordinary program editing and knowledge-based editing so that they can 
both be conveniently accessed through Hmacs. 



Figure 10: Architecture of KBHmacs. 

The sections below begin by discussing cliches and the plan formalism. They then describe how each of 
the components in Figure 10 is implemented. The discussion focuses on requirements and high level design, 
attempting to avoid implementation details whenever possible. The discussion also presents some of the ways 
the components could be improved. In particular, the last section of the chapter presents an experiment 
which shows how the basic operations of KBHmacs could be speeded up by at at least an order of magnitude. 
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Cliches 

There arc five aspects to the way KBKmacs implements cliches. Syntactic extensions of the languages Lisp 
and Ada provide a textual representation for roles. Additional syntactic extensions enable cliches to be 
defined in much the same way that subroutines arc defined. A simple library mechanism is provided along 
with a set of example cliches. The plan formalism has a number of features which arc provided in order to 
represent cliches and the way a program is built up out of cliches. Finally, the knowledge-based editor 
supports a number of commands which make it possible for a programmer to use cliches when editing a 
program. 

The first three aspects of KBHmacs' implementation of cliches are discussed in this section. Appendix A 
presents all of the cliches currently defined. The plan formalism and the knowledge-based editor are 
discussed in separate sections below. 

Roles And Other Machine Understandable Annotation Of Lisp Programs 

As discussed in the beginning of Chapter 11, the notation (...) is used to represent roles and other 
machine understandable annotation of Lisp programs. Figure 11 presents the various features of this notation 
in terms of a simple set of grammar rules. (These Riles arc expressed in a more or less standard version of 
BNF which is summarized in a key at the bottom of the figure.) 

function-call (name {argument}) \ role-form \ embedded-instance 

role-form ::= anonymous-role 
| empty-role 

I ( empty-role {argument}) 
j '{'form, role'}' 
j (‘{’name, role'}’ {argument}) 
anonymous-role ::= ‘O’ 
empty-role ::= ‘{’ro7e‘}’ 

role ::= the [input | output] name (of the name} 
name ::= a non-NIL Lisp symbol 

argument :: = form | ‘{'form, modified'}’ | '{'form, depending on ro7e‘}’ 
form :: = function-call | any other Lisp form 

embedded-instance ‘{'a-or-an cliche-name [of Instances]'}’ 

| '{’a use of function-reference'}' 

bold-italic-names are non-terminal grammar symbols 

:: = specifies a grammar rule 

... | ... signifies alternation of possibilities 

[.. . ] signifies optionalily 

(...) signifies repetition zero or more times 

's' signifies the terminal grammar string s 

all other symbols are terminal grammar symbols 

Figure 11: Machine understandable Lisp annotation. 

In Lisp code, a role form signifying a roic can appear anywhere a function call can appear — i.c., any place 
where a form will be evaluated (c.g., not as a bound variable or as an entire COND clause or inside of a quoted 
list). As illustrated below there are five kinds of role-forms. 

an anonymous role (} 

an empty role (input x} 

an empty role with arguments ((operation) A (CAR L)) 

a filled role ((LIST A (CAR L)), operation) 

alternate syntax for a filled role ({LIST, operation) A (CAR L)) 
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An anonymous role is used as a place holder for something which must be present but which is not 
important enough to be given a name. Typically it stands in place of something which will be automatically 
generated by KHKmacs. 

An empty role specifies the location of a named role. It can be specified with or without a list of 
arguments. If a list of arguments is specified then it is expected that the computation which eventually fills 
the role will use these arguments. The arguments arc specified both as a form of documentation for the user 
and so that KBKmacs can correctly analyze the data How in the program when the role is not yet filled in. 

Usually, roles are not displayed when they arc filled in. However, if a filled role is displayed, then the 
contents of the role precedes the name of the role and is separated from the name by a comma. If a role is 
filled with a function call (as opposed to some other form such as a constant) then the filled role can be 
displayed in an alternate way which is sometimes more readable. As illustrated above, the function name is 
shown as filling the role and the role is shown as having arguments. Note that although the last two examples 
above arc syntactically different they arc semantically identical, specifying exactly the same role and its 
contents. 

The name of a role specifies three different things. It specifics the name of the role itself. It specifies 
w hether the role is to be considered to be logically an input or an output of the containing cliche. In addition, 
it specifies whether the role is part of a larger compound role. 

Input and output roles are illustrated in the definition of the cliche list-enumeration shown below. The 
role list is an input. The role clement is an output. The other roles correspond to internal computations and 
are neither inputs nor outputs. The definition of the cliche list-enumeration also illustrates various kinds of 
filled and empty role forms. Note that the roles element-accessor and clement arc filled with the same 
computation. 

(DEFINE-CLICHF. LIST-ENUMERATION 
(PRIMARY-ROLES (LIST) 

DESCRIBED-ROLES (LIST) 

COMMENT "enumerates the elements of (the list}") 

(LET* ((LIST (the input list})) 

(LOOP DO 

(IF ({NULL, the empty-test} LIST) (RETURN)) 

{({CAR, the element-accessor} LIST), the output element} 

(SETQ LIST ({CDR, the step} LIST))))) 

Compound roles arc illustrated in the following excerpt from the cliche simple-report. The empty-test, 
element-accessor, and step arc all part of a compound role, the enumerator. 

(LOOP DO 

(IF ({the empty-test of the enumerator} DATA) (RETURN)) 

(WHEN (> LINE {the line-limit}) 

(SETQ PAGE (+ PAGE l)) 

(FORMAT REPORT "-/ |~%Page:-3D-50: <~A~>~17A~2°/o" PAGE TITLE DATE) 

(SETQ LINE 3) 

({the column-headings} {REPORT, modified} {LINE, modified})) 

({the print-item} {REPORT, modified} 

{LINE, modified} 

({the element-accessor of the enumerator} DATA)) 

(SETQ DATA ({the step of the enumerator} DATA))) 

Referring back to Figure 11, annotation on the arguments of a function call is a second kind of machine 
understandable Lisp annotation. There arc two types of argument annotation. The first type specifics that 
the argument is modified (side-effected) by the function it is an argument to. This is illustrated in the excerpt 
from the cliche simple-report shown above. T he column-headings and print-item roles both sidc-clfcct their 
REPORT and LINE arguments. Annotation about side effects is important so that KBHmacs can correctly 
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analyze the data flow in a program when a role is not yet filled in. 

The second kind of argument annotation has a very specialized meaning. It specifics the logical existence 
of a role whose value is not actually used for anything. This is illustrated in the cliche count shown below. 
The cliche count takes in a series of values (c.g., created by enumerating a list) and counts them. The cliche is 
peculiar in that it depends on the existence of the elements in this series however, it docs not actually use any 
of these elements in its computation. The ramifications of this are discussed in more detail as part of the 
discussion of the cliche count in Appendix A. 

(DEFINE-CLICHE COUNT 

(PRIMARY-ROLES (ITEM) 

DESCRIBED-ROLES (ITEM) 

COMMENT "accumulates a count of (the item}") 

(LET* ((COUNT 0)) 

' (LOOP DO 

(SETQ COUNT (+ COUNT {1, depending on the input item}))) 

COUNT)) 

Figure 11 defines a third kind of machine understandable Lisp annotation — an embedded instance. T his 
kind of annotation makes it possible to directly specify a part of a program as an instance of a cliche 
(e.g., (+ Y {a squaring of Y})) or a reference to the return value of a function 
(c.g., (+ Y (a use of the CAR})). Several examples of these are shown in Chapter II as part of the 
construction of die program MEAN-AND-DEVIATION. 

When they are used, embedded instances are converted into equivalent program code by the 
knowledge-based editor module. The exact syntax and meaning of the two forms of an embedded instance is 
discussed in the section on the knowledge-based editor below. 

Defining Lisp Cliches 

KBHmacs provides a Lisp macro DEFINE-CLICHE for defining cliches. Figure 12 specifics the formsucha 
definition must take. (Note that several of the non-terminals in this figure are defined in Figure 11.) 

cliche-definition (DEFINE-CLICHE name 

({ cliche-declaration }) 

{form}) 

cliche-declaration :: = PRIMARY-ROLES ({name}) 

| DESCRIBED-ROLES ({name}) 
j COMMENT description-string 
I CONSTRAINTS ({constraint}) 
description-string :: = "{name | empty-role}" 

constraint :: = (DEFAULT empty-role form) 

| (DERIVED empty-role form) 
j (RENAME string form) 
string ::= a siring literal 


Figure 12: Defining a Lisp cliche. 


As an example of a cliche definition, consider the cliche equality-within-cpsilon shown below. 

(DEFINE-CLICHE EQUALITY-WITHIN-EPSILON 
(PRIMARY-ROLES (X Y) 

DESCRIBED-ROLES (X Y) 

COMMENT "determines whether {the x} and {the y} 
differ by less than {the epsilon}" 

CONSTRAINTS ((DEFAULT {the epsilon} 0.00001))) 

(< (ABS (- {the input x} {the input y})) {the epsilon})) 
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The body of a cliche definition is ordinary lisp code typically containing role annotation. Additional 
information about the cliche is provided by four kinds of declarations. The PRIMARY-ROLES declaration 
specifies which roles can be directly specified when creating an instance of the cliche. For example, here the 
programmer can say "an equal ity-within-epsilon of A and B" but he cannot say "an 
equality-within-epsilon of A, B, and 0.01". 

The DESCRIBED-ROLES and COMMENT declarations specify how to create long and short comments 
describing instances of the cliche. Note that the description string typically contains empty role forms. 
Although these forms arc syntactically identical to empty role forms in the body of a cliche they have a 
different meaning. When the description string is used, all of the empty role forms in it arc replaced by 
descriptions of the forms which fill the corresponding roles in the body of the instance of the cliche. The use 
of the DESCRIBED-ROLES and COMMENT declarations will be discussed when comments arc discussed in the 
section on the knowledge-based editor below. 

Constraints 

The CONSTRAINTS declaration specifics constraints which arc placed on the roles. There are three kinds of 
constraints: default, derived, and rename. The cliche cquality-within-epsilon includes a simple example of a 
default constraint. All three kinds of constraints arc illustrated below. 


(CONSTRAINTS 

((DEFAULT (the report-file-name} "report.txt") 

(DERIVED {the line-limit} (- 65 (SIZE-IN-LINES {the print-item}))) 

(RENAME "RECORD" (CORRESPONDING-RECORD-NAME {the data-fi1 e-name})))) 

Default and derived constraints arc very similar. They both take as arguments a role and an expression. 
The expression is evaluated and used to fill the indicated role. The only difference between the two is that 
default constraints can be overridden by replacing the contents of the constrained role with some other value. 
In contrast, if the contents of a derived role arc changed, the constraint will act to restore the contents to their 
original value. 

Rename constraints are textual in nature. They take a target string, and an expression which should 
evaluate to a replacement string. Rvcrywhcre in die body of the cliche the target string is replaced by die 
replacement string. This causes renaming of variable names and function names. It also changes the values of 
string literals and other literal values. As shown below, the renaming applies not only to the exact target 
string, but also to compound forms of the target string. In particular, die plural form of the target string is 
replaced by the plural form of die replacement string and renaming is applied to hyphenated words 
containing the target string. However, renaming is not applied to names which merely contain the target 
string as a substring. 


If "RECORD" is 

RECORD 
RECORDS 
RECORD-TYPE 
"The RECORD key 
RECORDING 


renamed to "UNIT 

becomes 
becomes 
becomes 
" becomes 

remains 


then 

UNIT 

UNITS 

UNIT-TYPE 

"The UNIT key 

RECORDING 


There are two key aspects to the way constraints arc implemented by KBHmacs. First, a constraint 
checking module which is part of the knowledge-based editor reevaluates the constraints associated with a 
cliche whenever die contents of any of the roles in an instance of diat cliche arc modified. This guarantees 
diat the constraints arc checked whenever their effects could be altered. 

Second, constraint expressions arc composed of ordinary Lisp functions. They arc able to affect die roles 
in an instance of a cliche because they can refer to them by means of empty role forms. The empty role forms 
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in a constraint expression arc syntactically identical to empty role forms in the body of a cliche, however, they 
have a different meaning. When a constraint expression is evaluated, each empty role form in it evaluates into 
a direct pointer to whatever fills the corresponding role in the plan for the instance of the cliche the constraint 
is being applied to. Using this pointer, the constraint expression can inspect or alter the contents (if any) of 
the role in the plan. 

In principle, there is no limit to what can be specified in a constraint expression since the full power of 
Lisp can be used in these expressions. Lor example, the constraint function CORRESPONDING_PRINTING 
discussed in Chapter III contains an entire program generator. In practice, constraints arc severely limited by 
die fact that no ordinary user is expected to write a function which can do anything useful with a direct 
pointer into a plan. As a result, constraints arc typically composed of predefined constraint functions. Only a 
very few constraint functions arc defined at the current time. 

It should be noted that there arc a number of problems with the way the rename constraint is currently 
supported. In particular, rename constraints are only evaluated once, at the moment the cliche is first 
instantiated. As a result, any roles which the rename constraint refers to (c.g., the role data-file-name in the 
example above) must have values specified for them in the knowledge-based command which causes the 
instantiation of the cliche. This is an unreasonable restriction which could and should be eliminated. 

Expressiveness 

It is important to consider exactly which algorithms can be expressed as a cliche and which cannot be. 
Unfortunately, this topic has not been investigated in very much detail (see [Rich & Waters 83] for a brief 
discussion). However, several points arc clear. First, die cliches used in the scenarios in Chapters II & III 
show that a wide range of cliches can be defined. In particular, many algorithms can be defined which are too 
fragmentary to be represented as subroutines (e.g., the cliche list-enumeration). Second, both constraints and 
compound roles greatly extend the expressiveness of cliches. 

As an example of the limits to the expressiveness of cliches consider the following. As defined in 
Chapter I, it is the intention of a cliche that die matrix be non-varying — all of the variability is confined to 
what fills die roles. (The only exception to this at die current time is the rename constraint.) To a 
considerable extent this is not a limit because any part of the matrix can be converted into a role. However, 
no matter how many roles dicrc are, die number of roles and die way they interact is fixed. This is analogous 
to the situation in many programming languages where the number of arguments to a subroutine is fixed. 

Unfortunately, there are algorithms which do not have a fixed number of roles. For example, in 
KBEmacs, it is easy to define a cliche which computes die average of two numbers or a different cliche which 
computes die average of dircc numbers. However, it is not possible to define die cliche which is die 
generalization of these two cliches (i.e., a cliche which computes the average of any number of numbers) 
because this cliche has a variable (in fact, unbounded) number of input roles. 

Another limitation on cliches in KBEmacs is that since plans cannot represent information about data 
structures, it is not possible to define cliches which correspond to generalized data types. In Lisp, this 
restriction is not too obtrusive since the typical Lisp program docs not contain any code which describes data 
types. (As discussed in Chapter IV data cliches will be supported by the next demonstration system.) 



Cliches 


161 


The Cliche Library 

In KBKmacs, the cliche library is implemented very simply. Property lists arc used to associate the plan 
for a cliche with the name of the cliche. T his allows cliches to be rapidly referenced by their names. No other 
kind of reference is supported. 

I’hc analyzer module is used to convert a cliche definition form into a plan for die cliche. The way this is 
done will be discussed in the section on the analyzer below. 

Ada Cliches 

Ada cliches are semantically identical to Lisp cliches. Syntactically, they differ in the same way that Ada 
syntax differs from Lisp syntax. The syntax of machine understandable annotation in Ada is shown in 
Figure 13. Comparison of this figure with Figure 11 (which defines several of the non-terminal symbols used 
in Figure 13) shows that there arc only two basic differences between Ada annotation and Lisp annotation. 

ada-function-call ::= name[(ada-argument {, ada-argument})} 

I ada-role-form I embedded-instance 

ada-role-form :: = anonymous-role 

| empty-role[(ada-argument {, ada-argument })] 

I T ada-expresslon, role '}’ 

I '{’name, role‘}’{(ada-argument {, ada-argument })] 

ada-argument ::= ada-expresslon 

| '{’ada-expresslon, modified'}’ 

| '{'ada-expresslon, depending on role'}’ 

ada-fleld-selectlon ::= name-or-role.name-or-role{.name-or-role} 
name-or-role ::= name | ada-role-form 

ada-expresslon ada-function-call | ada-fleld-selectlon 

| any other Ada expression 

ada-statement :: = ada-role-form \ an Ada statement 
ada-declaration ::= ada-role-form \ an Ada declaration 
ada-type ::= ada-role-form \ an Ada type 

Figure 13: Machine understandable Ada annotation. 


The first difference is that Ada role forms are changed so that they have the same syntax as Ada function 
calls. For example, as shown below, an empty role with arguments in Ada has the form 
(operation}(A, CAR(l) ) while in Lisp it has the form ({operation} A, CAR(L)). 


an anonymous role 
an empty role 

an empty role with arguments 
a filled role 

alternate syntax for a filled role 


{} 

{input x} 

{operation}(A, CAR(L)) 

{LIST(A, CAR(L)), operation} 
{LIST, operation}(A, CAR(L)) 


The second difference is that a number of grammar rules have to be modified in order to show all the 
places where a role form can be used. For example, Ada uses a special syntax for statements (as opposed to 
expressions) and for selecting the ficid of a record, where Lisp uses function calls for everything. 

It should be noted that Figure 13 shows that roles can appear inside data declarations and types. In Ada, 
KBKmacs provides simulated support for data cliches (e.g., chain_filc_dcFinition) by converting Ada type 
declarations into an internal form which appears to the system to be executable computation. This is a 
serviceable but ad hoc approach. 
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Figure 14 shows the syntax of Ada cliche definitions. Comparison of this figure with Figure 12 reveals 
that Ada cliche definitions arc identical to Lisp cliche definitions except for syntax. 

ada-clIche-deflnltlon ::= cliche name is 

{ada-clIche-declaratlon;} 

{ ada-declaratlon ;} 
begin 

{ ada-statement ;} 
end name; 

ada-clIche-doclaratlon ::= primary roles name {, name} 

| described roles name {, name } 

j comment description-string 

j constraints { ada-constralnt ;} end constraints 

ada-constralnt ::= DEFAULT(empty-ro7e, ada-expresslon) 

| DERIVED! empty-role, ada-expresslon) 
j RENAME!string, ada-expresslon) 

Figure 14: Defining an Ada cliche. 

As illustrated in the example below, the syntax of the cliche defining form is changed so that it is 
analogous to die way Ada subroutines are defined. (Note that die name of cliche is changed to conform to 
Ada restrictions on what is a syntactically valid name.) 

cliche EQUALITY_WITHIN_EPSILON is 
primary roles X, Y; 
described roles X, Y, EPSILON; 
comment "determines whether {the x} and {the y} 
differ by less than {the epsilon}”; 
constraints 

DEFAULT({the epsilon}, 0.00001); 
end constraints; 

begin 

return abs({the input x} - {the input y}) < {the epsilon}; 

end EQUALITY_WITHIN_EPSILON; 

The various cliche declarations arc rendered as keywords in analogy with other Ada declarations. 
Constraints are rendered as Ada function calls. They are implemented by calling die corresponding Lisp 
constraint functions. 

Language Independence 

Comparison of die way Lisp and Ada cliches are defined shows the language independence of die ideas 
involved. It is easy to extend the syntax of almost any language in order to support cliches. Role annotation is 
supported using the notation {...} in analogy with the way function calls are rendered in the language’s 
syntax. Similarly, cliche definition is rendered in analogy with subroutine definition. 

In order to support a new language, one also has to provide a library of cliches which arc appropriate for 
writing programs in that language. A separate library of cliches is required because, as discussed in the 
beginning of Chapter 111, programming languages differ semantically as well as syntactically. (Some cliches, 
particularly very abstract ones, arc semantically language independent and therefore could be represented in a 
language independent cliche library.) 



163 


Plan Formalism 

The plan formalism is the "mental language" of KBhmacs. As such, it is the most important part of the 
system. The formalism was originally developed by Rich and Shrobc (Rich & Shrobc 76] and then extended 
by the author [Waters 76,78], The subsections below describe the information content of the plan formalism 
in detail. 

Surface Plans 

A plan is a set of facts. The facts describe the operations in a program and the data flow and control flow 
which connect them. Figure 15 shows the types of facts which comprise a surface plan. A suiface plan 
describes the basic features of an algorithm without imposing any structure on the algorithm. Figure 16 
shows a diagram of a simple surface plan. (This figure is a subset of Figure 3 in Chapter 1 and uses the same 
diagrammatic conventions — solid lines represent data flow, and dashed lines represent control flow.) 
Figure 17 shows the set of facts which correspond to the plan diagram in Figure 16. 

plan ::= ({fact}) 

fact seg-descrlptlon | port \ port-description I connection 

seg-descrlptlon ::= (segcase SEG segklnd name-or-constan t ({form})) 

I (segcase SEGTYPE segtype) 

I (segcase WHEN form) 
segcase ::= (segment [case]) 
segment :: = name 
case ::= name 

name-or-constant = NIL | name \ Lisp constant 

segklnd :: = FUNCALL | CONSTANT | LAMBDA-EXP | OPENCODE | RECURSION | JOIN 
segtype :: = SIMPLE | SPLIT | JOIN 

port ::= (segcase INPUT port-kind obj Id) 

| (segcase OUTPUT port-kind obj Id) 
obj ::= name 
Id ::= NIL | obj 
port-kind = NIL I ID 1 PART 

port-description ::= (port 10 lo-klnd name-or-nll argno) 

1 (port CREATEVAR name) 

lo-klnd ::= LAMBDA-ARG | ACTUAL-ARG | FREE-VAR 1 RETURNVAL | SIDE-EFFECT 
name-or-nll name | NIL 
argno ::= NIL | an integer 

connection (segcase SUBSEG subseg) 

I (segcase RECURSIVE subseg) 
j (segcase DFLOW dflow-from dflow-to) 

I (segcase CFLOW cflow-from cflow-to) 
subseg = segcase 
dflow-from ::= port 
dflow-to ::= port 
cflow-from ::= segcase 
cflow-to ::= segcase 


Figure 15: The information in a surface plan. 

Each fact is a tuple. The second element of the tuple is a keyword which identifies the relationship 
specified by the fact. The other elements of the tuple are the arguments of the relationship. 
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RESULT 


Figure 16: Plan diagram for (COND ((MINUSP X) (- X)) (T X)). 

The most basic object in a plan is a segment. Segments correspond to a unit of computation. Segments are 
identified by their names. Bach segment in a plan must have a unique name. In facts, segments arc referred 
to by segcases. A scgcase is a pair of a segment name and an optional case name. As will be discussed below, 
cases arc used to identify various control environments associated with a segment. If a fact applies to only one 
ease, then die ease is identified. If the fact applies to every ease then no ease is specified. 

There arc four different classes of facts in a surface plan. The first class consists of three different facts 
which describe the basic features of a segment. 

A SEG fact specifics three pieces of information about a segment. First it says what kind of segment it is. 
FUNCALL specifies that the segment is a call on a function. CONSTANT specifies that the segment is a constant 
such as a number or a string literal. LAMBDA- EXP specifics that die segment corresponds to the definition of a 
function. OPENCODE specifics that the segment contains a group of other segments, but docs not correspond 
to an entire function definition. RECURSION specifies that die segment is a recursive instance of a containing 
segment. JOIN specifies that die segment is a join. The last two concepts will be discussed in more detail 
below. 

If a segment is a FUNCALL then the SEG fact specifics the name of the function called. If the segment is a 
CONSTANT dien the SEG fact specifies the value of the constant. If the segment is a LAMBDA-EXP then the SEG 
fact specifics the name of the function defined. 

Finally, if possible, a SEG fact specifies what program code corresponds to die segment. The code is 
specified by using direct pointers into the code for the program so that KBHmaes can keep track of what parts 
of a plan correspond to what parts of a program. 
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(((MINUSP) SEG FUNCALL MINUSP ((MINUSP X))) 

((MINUSP) SEGTYPE SPLIT) 

((MINUSP YES) WHEN (< X 0)) 

((MINUSP NO) WHEN (NOT (< X 0))) 

((MINUSP) INPUT NIL X NIL) 

(((MINUSP) INPUT NIL X NIL) 10 ACTUAL-ARG X l) 

((-) SEG FUNCALL - ((- X))) 

((-) SEGTYPE SIMPLE) 

((-) INPUT NIL X NIL) 

((-) OUTPUT NIL RESULT NIL) 

(((-) INPUT NIL X NIL) 10 ACTUAL-ARG X l) 

(((-) OUTPUT NIL RESULT NIL) 10 RETURNVAL NIL NIL) 

((JOIN) SEG JOIN NIL NIL) 

((JOIN) SEGTYPE JOIN) 

((JOIN YES) INPUT ID XI RESULT) 

((JOIN NO) INPUT ID X2 RESULT) 

((JOIN) OUTPUT NIL RESULT NIL) 

(((JOIN YES) INPUT ID XI RESULT) 10 FREE-VAR X NIL) 

(((JOIN NO) INPUT ID X2 RESULT) 10 FREE-VAR X NIL) 

(((JOIN) OUTPUT NIL RESULT NIL) 10 RETURNVAL NIL NIL) 

((ABS) SEG OPENCODE NIL ((COND ((MINUSP X) (- X)) (T X)))) 

((ABS) SEGTYPE SIMPLE) 

((ABS) INPUT NIL X NIL) 

((ABS) OUTPUT NIL RESULT NIL) 

(((ABS) INPUT NIL X NIL) 10 FREE-VAR X NIL) 

(((ABS) OUTPUT NIL RESULT NIL) 10 RETURNVAL NIL NIL) 

((ABS) SUBSEG (MINUSP)) 

((ABS) SUBSEG (-)) 

((ABS) SUBSEG (JOIN)) 

((ABS) DFLOW ((ABS) INPUT NIL X NIL) ((MINUSP) INPUT NIL X NIL)) 

((ABS) DFLOW ((ABS) INPUT NIL X NIL) ((-) INPUT NIL X NIL)) 

((ABS) DFLOW ((-) OUTPUT NIL RESULT NIL) ((JOIN YES) INPUT ID XI RESULT)) 

((ABS) DFLOW ((ABS) INPUT NIL X NIL) ((JOIN NO) INPUT ID X2 RESULT)) 

((ABS) DFLOW ((JOIN) OUTPUT NIL RESULT NIL) ((ABS) OUTPUT NIL RESULT NIL)) 

((ABS) CFLOW (MINUSP YES) (-)) 

((ABS) CFLOW (MINUSP NO) (JOIN NO)) 

((ABS) CFLOW (-) (JOIN YES))) 

Figure 17: Plan facts corresponding to Figure 16. 

A SEGTYPE fact specifics how a segment interacts with control flow. A SIMPLE segment receives control 
flow from one place and sends control flow to one place. A SPLIT segment makes a choice. It receives 
control flow from one place and sends it to one of two or more places. A split has two or more cases which 
correspond to the different control environments initiated by the segment. A JOIN segment receives control 
flow from one of two or more other places and sends it to one place. Like splits, joins have cases which 
correspond to the different control environments which preceded the segment. (The utility of joins will be 
discussed below.) 

A WHEN fact specifics the circumstances under which the various cases of a split are activated. The fact 
contains a logical expression which refers to the inputs of the split. The case is activated when the expression 
is true. 
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As an example of the facts which describe the basic features of a segment consider the following facts 
describing die segment MINUSP in Figure 17. The segment is a function call which calls the standard l.isp 
function MINUSP. The segment is a split with two eases. The YES ease is activated when the input X is less 
than zero. Otherwise, the NO case is activated. 

((MINUSP) SEG FUNCALL MINUSP ((MINUSP X))) 

((MINUSP) SEGTYPE SPLIT) 

((MINUSP YES) WHEN (< X 0)) 

((MINUSP NO) WHEN (NOT (< X 0))) 

The second class of facts in a surface plan consists of two different facts which identify the ports of a 
segment. INPUT and OUTPUT facts specify the input ports and output ports respectively of a segment. (On a 
given segment, all of die port names must be unique.) 

In addition, port facts specify some additional information about the port. In particular they specify 
whether the port is identical to or a subpart of some other port on the same segment. If the port is related to 
another port then the ID field of the fact specifics die name of the other port. 

As a simple example of port facts, consider die ports of the segment in Figure 17. These are both 
simple ports which arc unrelated to other ports. The use of relationships can be seen in the description of the 
segment JOIN and will be discussed below. 

((-) INPUT NIL X NIL) 

((-) OUTPUT NIL RESULT NIL) 

The tliird class of facts in a surface plan consists of two different facts which describe additional features of 
ports. An 10 fact specifies three pieces of information about a port. First, it says what kind of port it is. 
LAMBDA-ARG specifics diat the port is an input argument to a function definition. ACTUAL-ARG specifies that 
the port is an input argument to a function call. FREE-VAR specifics diat the port is implemented as a free 
variable. RETURNVAL specifies diat the port is die return value of the segment. SIDE-EFFECT specifies that 
die port is not directly referenced by the segment, but is modified due to side-effects performed by the 
segment. 

If a port is a LAMBDA-ARG then the 10 fact specifics the name of the argument. If a port is a FREE-VAR 
then die 10 fact specifics die name of die variable. Ifa port is an ACTUAL-ARG (or SIDE-EFFECT) dicn die 10 
fact specifics the name of the variable (if any) which carries the value to (or from) the port in die program 
code. If a port is a LAMBDA-ARG or an ACTUAL-ARG then the 10 Diet specifics die argument number 
corresponding to the port. 

A CRF.ATEVAR fact is used to indicate diat the return value of a segment has been assigned to a variable by 
an assignment operation. The names of variables are recorded in port description facts in order to help die 
coder module choose useful variable names when creating code corresponding to a plan. 

As a simple example of port description facts, consider the facts describing the ports of the segment in 
Figure 17. X is die first argument to the function being called. RESULT is the return value. Note diat these 
facts have die port facts above embedded in diem. There is no example of a CREATEVAR Diet in Figure 17. 

(((-) INPUT NIL X NIL) 10 ACTUAL-ARG X 1) 

(((-) OUTPUT NIL RESULT NIL) 10 RETURNVAL NIL NIL) 
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The fourth class of facts in a surface plan consists of four different facts which describe the 
interrelationships between segments in a plan. A SUBSEG fact specifics that one segment is contained in 
another. For example, the segment MINUSP is inside the segment ABS. 

A RECURSIVE fact specifies that a segment is a recursive instance of a containing segment. For example 
the plan for a recursive implementation of factorial would have an inner segment corresponding to the 
recursive call on tine function. There is no example of a recursive fact in Figure 17. 

A DFLOW fact specifics data flow from one port to another. It points directly to die source and destination 
ports. 

A CFLOW fact specifics the control flow connecting segments in a plan. Note that control flow is only used 
where necessary in order to specify the effects of splits and joins. In other situations die ordering constraints 
specified by data flow links arc sufficient. 

As an example of data How and control flow, consider die links (reproduced below) impinging on die join 
in Figure 17. F'irst of all notice that die inputs of the join are located in different eases of die join. I his 
reflects the fact that in a given execution of the program only one of die inputs will be supplied. ID 
relationships between the ports specify that the input values are propagated directly to die output of the join. 

((JOIN) SEG JOIN NIL NIL) 

((JOIN) SEGTYPE JOIN) 

((JOIN YES) INPUT ID XI RESULT) 

((JOIN NO) INPUT ID X2 RESULT) 

((JOIN) OUTPUT NIL RESULT NIL) 

((ABS) CFLOW (MINUSP NO) (JOIN NO)) 

((ABS) CFLOW (-) (JOIN YES)) 

((ABS) DFLOW ((-) OUTPUT NIL RESULT NIL) ((JOIN YES) INPUT ID XI RESULT)) 

((ABS) DFLOW ((ABS) INPUT NIL X NIL) ((JOIN NO) INPUT ID X2 RESULT)) 

((ABS) DFLOW ((JOIN) OUTPUT NIL RESULT NIL) ((ABS) OUTPUT NIL RESULT NIL)) 

The control flow facts impinging on the join specify that when control flow comes from the segment 
the YES case of die join is activated, and when control flow comes from the NO ease of die split MINUSP, dien 
die NO ease of the join is activated. The data flow specifics where the data flow comes from in these two 
situations and diat the output of the join becomes die output of the segment ABS. 
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Figure 18: Looping plan for (LOOP DO (IF (MINUSP X) (RETURN)) (SETQX (l- X))). 

An interesting issue involving surface plans is the way loops are rendered. As shown in Figure 18 and 
Figure 19, this can be done in two ways. Both of these figures show plans for the trivial loop 
(LOOP DO (IF (MINUSP x) (RETURN)) (SETQ X (l- x))). The two figures differ in that the first 
represents the loop by using a loop in control flow and the second represents the loop by means of recursion. 

The recursive plan is an abbreviated form of an infinite representation. The recursive link (represented by 
using a looping line) between the segments BODY and REC indicates that the computation performed by the 
segment REC can be described by exactly the same plan which describes the segment BODY. This corresponds 
to a recursive call of a procedure. The intermediate segment BODY is introduced (rather than making REC be a 
recursive instance of the segment LOOP) in order to provide a control environment where loop initializations 
can be placed (i.e., inside die segment LOOP, but before the segment BODY). 

The fact that both figures represent the same computation reflects the fact that any loop can be 
represented as a tail recursion and vice versa. As will be seen below, KBEmacs usually chooses to represent 
loops in terms of recursion. However, this is not a requirement of the plan formalism perse. 
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Figure 19: Recursive plan for (LOOP DO (IF (MINUSP X) (RETURN)) (SETQX (l- X))). 

A final issue involving surface plans is their expressiveness. In a surface plan one can already sec most of 
die roots of die limits to the expressiveness of the plan formalism. In particular, there arc no facts which say 
anything about data staicturcs or specifications. There is also no way to describe non-local flow of control 
such as interrupts or die Lisp operations CATCH and THROW. It is however, possible to represent multiple entry 
loops and multiple and mutual recursion. The ability to represent such complex patterns of control is lost 
when additional features are added into die plan formalism. 

Grouped Plans 

Typically, surface plans arc flat in diat they have no hierarchical structure. Rather, dicy arc composed of 
an outermost segment containing tens (or even hundreds) of terminal subsegments connected by a network of 
data flow and control flow. 

In a grouped plan, intermediate segments arc used in order to break the plan up into a hierarchy of plans 
within plans. The overall goal of diis grouping is to divide die plan into chunks which can, to a considerable 
extent, be manipulated separately. To this end die grouping is guided by the following principles. Segments 




170 


Implementation 


which arc closely related (by control flow or data flow) arc grouped together. Perhaps even more importantly, 
unrelated segments arc kept as far apart as possible. 

When experimenting with various ways to group up a plan, it was discovered that there arc only a very few 
basic hierarchical organizations which arc used in programs. These organizations arc referred to in the plan 
formalism as plan building methods [Waters 78,79], Kach plan building method corresponds to a stereotyped 
way of combining subsegments together. The individual subsegments arc identified by the roles they play in 
the combination. 

Plan building methods arc an important underpinning of KBKmacs. In particular, both the analyzer and 
coder modules contain a significant amount of procedurally embedded knowledge about how to deal with 
each different plan building method. Further these modules arc not capable of dealing with plans which do 
not fall into these categories. 

The basic grouping of a plan (i.c., the hierarchy of segments within segments) is represented using the 
SUBSEG fact discussed in the last subsection. Figure 20 shows the facts which arc used to specify information 
about die plan building methods for the segments in a plan. 

fact ::= ... | pbm-fact 

pbm-fact ::= (segcase PLANTYPE plantype) 

I (segcase PBM-ROLE roleseg pbm-role) 

plantype ::= JOIN | CONSTANT | BUILTIN | EXPR | AND | XOR | PRED | SSR | SSR-BODY 

roleseg ::= segcase 

pbm-role = ACTION | PRED | JOIN | INIT | REC | OP | BODY 

Figure 20: The information in a grouped plan. 

A PLANTYPE fact specifies the plan building method corresponding to a segment. A PBM-ROLE fact 
specifies the role each subsegment plays in the plan building method for the segment which contains it. As 
shown below, each plan building method has a particular set of roles associated with it. 


plan building method roles 


JOIN, CONSTANT, & BUILTIN 

EXPR & AND 

XOR 

PRED 

SSR 


no subsegments 
ACTIONS 

PRED, ACTIONS, & JOIN 
INIT. PREDs, & JOINS 

INIT, PRED, OP, REC, JOIN, & BODY (an SSR-BODY) 


JOIN, CONSTANT, and BUILTIN are degenerate plan building methods for terminal segments. They 
correspond to joins, constants and function calls respectively. They are included so that every segment will 
have a plan building method. 

The plan building method EXPR contains an arbitrary number of subsegments referred to as ACTIONS. An 
EXPR cannot contain any splits or joins, and die actions must be connected by an acyclic net of data flow. The 
plan building method EXPR corresponds to what is commonly thought of as an expression in a programming 
language. 

The plan building method AND (which has nothing to do with the Usp function AND) is a special case of the 
plan building method EXPR. It has the further requirement that there most be no data flow between the 
actions. It embodies die key idea that there arc no ordering constraints between the actions. 

The plan building method XOR corresponds to a conditional. It has a predicate which decides which of 
several actions to perform. A JOIN combines together die control flow which is split apart by die predicate. 
The segment ABS in Figure 16 is an example of an XOR. Figure 21 shows the facts which would be used to 
encode the plan building method information associated with Figure 16. 
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(((minusp) plantype builtin) 

((-) PLANTYPE BUILTIN) 

((JOIN) PLANTYPE JOIN) 

((ABS) PLANTYPE XOR) 

((ABS) PBM-ROLE (MINUSP) PRED) 

((ABS) PBM-ROLE (-) ACTION) 

((ABS) PBM-ROLE (JOIN) JOIN)) 

Figure 21: Grouping facts corresponding to Figure 16. 

The plan building method PRED corresponds to a compound predicate. It combines simple predicates 
with joins and initialization computation in order to create more complex predicates. 

The plan building method SSR (Single Self Recursion) corresponds to a single self recursive program such 
as the standard implementation of factorial. The plan building method SSR is also used to represent loops 
which (as discussed above) arc expressible as tail recursive computations. Figure 19 is an example of an SSR. 
Figure 22 shows the facts which would be used to encode the plan building method information associated 
with Figure 19. 


(((MINUSP) PLANTYPE BUILTIN) 
((1-) PLANTYPE BUILTIN) 
((JOIN) PLANTYPE JOIN) 
((REC) PLANTYPE SSR-BODY) 
((BODY) PLANTYPE SSR-BODY) 
((LOOP) PLANTYPE SSR) 


((LOOP) 

((LOOP) 

((LOOP) 

((LOOP) 

((LOOP) 


PBM-ROLE (MINUSP) PRED) 
PBM-ROLE (1-) OP) 
PBM-ROLE (REC) REC) 
PBM-ROLE (JOIN) JOIN) 
PBM-ROLE (BODY) BODY)) 


Figure 22: Grouping facts corresponding to Figure 19. 

An SSR has several different kinds of roles. In particular, it has a BODY (which has the special plan 
building method SSR-BODY) and a REC (which is a recursive instance of the BODY and therefore also has the 
plan building method SSR-BODY). It can have an INIT which performs initialization computation before the 
BODY is entered. It typically has an OP which is the basic computation performed by the SSR. If an SSR is 
capable of terminating then it will have a PRED which specifics when the termination will occur. 

A wide range of programs can be analyzed in terms of the nine plan building methods above. However, 
there arc other ways in which a program can be organized. This causes grouped plans to be less expressive 
than surface plans. In order to recover the full expressiveness of surface plans, plan building methods 
corresponding to these other organizations would have to be added into the plan formalism. (Unfortunately, 
this is relatively hard to do because it requires a considerable amount of procedural support in die analyzer 
and coder.) 

As examples of program organizations not covered by the plan building methods presented above 
consider the following. There are no plan building methods which correspond directly to loops like the one in 
Figure 18. In general, this is not a problem because most loops can be transformed to equivalent recursive 
programs as shown in Figure 19. 1 lowcvcr, this transformation cannot be applied to multiple entry loops. In 
addition, occasionally the control flow in a program is so complex that it is not possible to sensibly analyze it 
in terms of conditionals and loops at all. In dtis situation it would often be useful if there were a plan building 
method which could view die program as a finite state automaton with state transitions implemented as 
control flow. Finally, the plan formalism docs not have plan building methods corresponding to multiple or 
mutual recursion. (However, for many purposes, these can be satisfactorily modeled in the plan formalism by 
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merely representing the recursive function calls in the same way as non-rccursivc function calls.) 

The discussion of plan building methods above is intentionally brief. The discussion in [Waters 78] is 
much more detailed. In addition, the latter discussion shows a number of examples of hierarchical plans 
which arc significantly more complicated than the ones above. 

In closing, it should be noted that, at a logical level, plan building methods arc clearly cliches. Kach one 
specifics how a set of roles is to be embedded in a matrix connecting them. Unfortunately, the restrictions 
embodied in a plan building method arc not specific enough for them to be represented as a cliche in the plan 
formalism. There arc two main problems. First, the number of roles is not fixed — an EXPR can have 
arbitrarily many ACTIONS. Second, the matrix is not fixed, rather it is only constrained — an EXPR can have 
any pattern of data flow as long as it is acyclic. 

It is unfortunate that plan building methods cannot simply be represented as cliches in the plan formalism, 
because this forces them to be procedurally handled as a special ease. It should be noted that die plan 
calculus is also incapable of representing plan building methods as cliches because, in general, it too requires 
the number of roles and the matrix to be fixed. However, this may not be a problem because the next 
demonstration system may not need to use plan building methods. The possibility of eliminating the plan 
building methods will be discussed in die last section of this chapter. 

Temporal Plans 

As discussed in Chapter I, a particularly interesting aspect of the plan formalism is the way it represents 
loops. As shown above, loops can be represented either using loops in control flow or recursively. In 
addition, a special mechanism called temporal decomposition is provided which makes it possible to represent 
a loop as a composition of temporal fragments which communicate by means of series of values. A scries of 
values is a sequence (stream) of values generated over a period of time. "Temporal fragments produce and 
consume series of values. 

As an example of temporal fragments. Figure 23 shows a plan diagram for a program SUM-TO-N which 
adds up die first N integers. This program (shown below) computes die sum by counting down from N to zero 
and adding up the integers enumerated. 

(DEFUN SUM-TO-N (N) 

(LET ((I N) 

(RESULT 0)) 

(LOOP DO 

(IF (MINUSP I) (RETURN RESULT)) 

(SETQ RESULT (+ RESULT I)) 

(SETQ I (1- I))))) 

The plan in Figure 23 contains two temporal fragments ENUMERATE-FROM-N and SUM. Each of these 
fragments is a simple recursive plan. Note that the plan for die segment ENUMERATE-FROM-N is idcndcal to 
the plan for the segment LOOP in Figure 19 except that it docs not return a value. 

"The series which are produced and consumed by a temporal fragment are represented by a special kind of 
input/output port called a temporal port. 'The ports I and J in Figure 23 arc temporal ports. 'The temporal 
output I corresponds to die series of integers diat is created by counting down from N. 'The dashed line 
between the NO ease of the segment MINUSP and the port I indicates that the temporal port only corresponds 
to the series of integers which arc greater dian or equal to zero. 'The temporal input J corresponds to die 
series of values which is summed up. 
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Figure 23: Temporal plan for summing the integers from 1 to N. 

Figure 24 presents the plan facts which are used to represent temporal fragments. First, two new kinds of 
ports arc defined — temporal inputs (TINPUT facts) and temporal outputs (TOUTPUT facts). These facts have 
an object name field like any other port. In addition they have two other fields which describe the series of 
values corresponding to the port. The lower-lo field specifics a port inside of the temporal fragment. The 
series of values corresponding to the temporal port is the series of values over time of the lower-lo port. (In 
a plan diagram a temporal port is linked to its lower-lo port by a solid line with no arrowhead.) 

The lower-env ficid specifics a scgcasc inside of the temporal fragment. Usually it is the segcasc of the 
lower-lo port. However, when it is not, it specifics that the series of values is only the subset of values of the 
lower-lo which is visible in die lower-env control environment. (In a plan diagram a temporal port is 
linked to its lower-env port by a dashed line with no arrowhead.) 

F'igurc24 also shows that a new kind of plan building method TEMPCOMP (temporal composition) is 
provided. This plan building method is used for segments which contain temporal fragments. (The temporal 
fragments themselves are instances of the plan building mcdiod SSR.) A TEMPCOMP is essentially the same as 
an EXPR except that it contains temporal fragments. 

Several new plan building mcdiod roles arc defined in order to specify the roles of temporal fragments in a 
TEMPCOMP. An ENUM enumerates a series of values, terminating the loop when the series is exhausted. A GEN 
generates a series of values, but docs not contain any termination condition. An ACC takes in a series of values 
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and accumulates some result. A TRN is a transducer which takes in a series of values and creates a new series 
of values based on the input series. A TERM contains a termination condition which can cause early 
termination of a loop. It can be used to create multiple exit loops. A FILTER takes in a series of values and 
filters out some of these values, creating a new series which contains only some of the values in the input 
series. Finally tine role BSSR is used for any kind of complex fragment which is too complex to fit in one of 
the categories above. 

port ... | (segcase TINPUT lower-env obj lower-lo) 

I ( segcase TOUTPUT lower-env obj lower-lo) 
lower-env segcase 
lower-lo ::= port 

plantype = ... I TEMPCOMP 

pbm-role = ... | ENUM | GEN | ACC | TRN | TERM | FILTER | BSSR 

lo-klnd :... | DUMMY 

Figure 24: The information in a temporal plan. 

The facts 10 and CREATEVAR are used to describe features of temporal ports just as they are used to 
describe ordinary ports. In addition, F'igure 24 shows that there is a special kind of port descriptor (DUMMY) 
which only applies to temporal ports. T his is used for temporal ports which have to be present in order to 
correctly represent the interrelationships between temporal fragments but for which no data is actually 
required. These correspond exactly to the places where the notation {. .., depending on ...} has to be 
used (e.g.. in the cliche count discussed above). 

As an example of facts describing the interaction of temporal fragments, consider the facts in Figure 25. 
This figure shows the tacts which deal with the temporal aspects of the plan in Figure 23. The segment 
SUM-TO-N is a temporal composition in which ENUMERATE-FROM-N is an enumerator and SUM is an 
accumulator. I and J arc temporal ports as described above. Note that ordinary data flow is used to connect 
temporal ports. 

(((SUM-TO-N) PLANTYPE TEMPCOMP) 

((SUM-TO-N) PBM-ROLE (ENUMERATE-FROM-N) ENUM) 

((SUM-TO-N) PBM-ROLE (SUM) ACC) 

((ENUMERATE-FROM-N) TOUTPUT (BODYl) I ((B0DY1) INPUT NIL I NIL)) 

((SUM) TINPUT (+) J ((+) INPUT NIL X NIL)) 

(((ENUMERATE-FROM-N) TOUTPUT (BODYl) I ((BODYl) INPUT NIL I NIL)) 

10 FREE-VAR I NIL) 

(((SUM) TINPUT (+) J ((+) INPUT NIL X NIL)) 10 FREE-VAR I NIL) 

((SUM-TO-N) DFLOW 

((ENUMERATE-FROM-N) TOUTPUT (BODYl) I ((BODYl) INPUT NIL I NIL)) 
((SUM) TINPUT (+) J ((+) INPUT NIL X NIL))) 

Figure 25: The temporal facts corresponding to Figure 23. 

The discussion above gives only a brief overview of temporal fragments. They arc discussed in much 
greater detail in [Waters 78,79], The section on the analyzer module below discusses how Kill-macs decides 
to break a loop up into temporal fragments. 
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Cliches 

There arc three kinds of facts in the plan formalism which arc used to represent information about roles 
and cliches (see Figure 26). A CLICHE-ROLE fact is used to specify that a segment is a role. It specifics the 
name and the type of the role. A CLICHE-DEF fact specifics that a segment is the definition of a cliche. In 
addition, it records the declaration information associated with the definition. A CLICHE fact specifics that a 
segment is an instance of a cliche. (Note that the non-terminal symbol cliche-declaration is defined in 
Figure 12.) 

fact ::= ... | cliche-fact 

cliche-fact ::= (segcase CLICHE-ROLE roleseg name cliche-role-type ) 

I (segcase CLICHE-DEF name ({ cliche-declaration })) 

I (segcase CLICHE name) 

cliche-role-type INPUT | OUTPUT | INTERNAL 

Figure 26: The information in a cliche plan. 

As examples of the first two kinds of facts above, consider the cliche absolute-value shown below. 

(DEFINE-CLICHE ABSOLUTE-VALUE 
(PRIMARY-ROLES NUMBER 
DESCRIBED-ROLES NUMBER 

COMMENT "computes the absolute value of {number}") 

(LET ((X {input number})) 

(COND ((MINUSP X) (- x)) (T X)))) 

Figure 29 shows a plan diagram for this cliche. Figure 27 shows the cliche definition facts corresponding 
to the cliche. 

(((ABSOLUTE-VALUE) CLICHE-DEF ABSOLUTE-VALUE 
(PRIMARY-ROLES NUMBER 
DESCRIBED-ROLES NUMBER 

COMMENT "computes the absolute value of {number}")) 
((ABSOLUTE-VALUE) CLICHE-ROLE (NUMBER) NUMBER INPUT)) 

Figure 27: Cliche definition facts corresponding to Figure 29. 

As an example of facts describing the instance of a cliche consider the following. Suppose that the 
segment ABS in Figure 29 were an instance of the cliche SIMPLE-CONDITIONAL shown below. 

(DEFINE-CLICHE SIMPLE-CONDITIONAL 
(PRIMARY-ROLES TEST ACTION 
DESCRIBED-ROLES TEST ACTION 
COMMENT "computes {action} if {test} is true") 

(IF {test} {action})) 

If this were the ease then the plan for the segment ABS would contain the facts shown in Figure 28. Note 
that the fact CLICHE-ROLE is used to represent both roles in cliche definitions and roles in cliche instances. 

(((ABS) CLICHE SIMPLE-CONDITIONAL) 

((ABS) CLICHE-ROLE (MINUSP) TEST INTERNAL) 

((ABS) CLICHE-ROLE (-) ACTION INTERNAL)) 

Figure 28: Cliche instance facts corresponding to Figure 29. 
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Figure 29: A plan for the cliche absolute-value. 

As can be seen from the discussion above, it is in general very straightforward to represent information 
about cliches in the plan formalism. However, there is one area of complexity — compound roles. 
Compound roles arc represented by CLICHE-ROLE facts just like non-compound roles. For example suppose 
that a top level segment T contains a segment S which is the role (the step of the enumerator}, and 
dial die intermediate segment E is {the enumerator}. In this case, two CLICHE-ROLE facts are used one 
specifying that E is die enumerator of T and one specifying diat S is the step of E. 

In order for the approach above to work, the plan formalism has to require diat there always be a segment 
which can be identified to correspond to a given compound role. This requirement is problematical due to 
the fact diat it cannot always be satisfied. Some sets of roles are logically grouped inside segments and some 
are not. ( This is not a severe problem in KBKmacs at die current time because dicrc arc actually very few 
cases of compound roles.) 

Requiring that there be a segment corresponding to each compound role is not merely a convenience — it 
solves an important problem. In addition to knowing what roles arc inside of a compound role, KBKmacs 
needs to know what part of the matrix of the cliche is inside of the compound role. However, there is not any 
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kind of annotation which directly specifies this information. As a heuristic, KBHmacs assumes that all of the 
matrix inside of the lowest level segment which contains all of the sub-roles in the compound role is also 
inside of the compound role. The importance of this will be discussed further below when the issue of filling 
roles is discussed. 

Implementation 

The plan formalism is supported by a simple relational data base. Individual facts can be asserted, deleted, 
and retrieved with patterns. For example, the following form asserts a fact describing an input. 

(>& ' (ABS) INPUT NIL 'X NIL) 

The next form retrieves a list of all the input facts for the segment ABS. The symbol * is used as a wild 
card matching symbol. In order to access die fields of the facts which are retrieved by a pattern, various field 
accessing functions are used. 

(??& ’(ABS) INPUT * * *) 

Finally, die next form finds and deletes any and all input facts describing die input object X of die segment 
ABS. 

(--& ’(ABS) INPUT * ’X *) 

The above data base is very flexible. For example, the use of patterns allows for great variety in the way 
information can be retrieved. In addition, it is trivial to define new kinds of facts. This flexibility is an 
important virtue in as much as die focus of die KBEmacs implementation has been rapid prototyping and 
experimentation. 

Unfortunately, the flexibility in the implementation of the plan data base is bought at the cost of 
horrendous inefficiency in both time and space. The last section of this chapter discusses how 
reimplemcnting the data base in a much more rigid way could speed up information access by orders of 
magnitude. 

Language Independence 

An important virtue of the plan formalism is that it is inherently programming language independent. 
This provides the basis for the language independence of KBFmacs as a whole. 

Analyzer 

The analyzer is used in two situations. First, whenever the programmer tcxtually modifies the program 
being worked on, the analyzer creates a new plan for the program so that knowledge-based editing can 
continue. Second, the analyzer is used to process cliche definitions in order to create plans which are stored in 
the cliche library. An important feature of the analyzer in both situations is the ability to understand role 
annotation. 

The analyzer operates in a sequence of stages which arc described below. Many of these stages arc similar 
to die operations of an optimizing compiler, and will only be sketched out briefly. [Waters 78] provides much 
more detail. 

Parsing 

The first stage of the analyzer parses the program text to be analyzed. For Lisp, this parsing is performed 
by the Lisp reader. The only direct support which has to be supplied by the analyzer is the parsing of role 
annotation. This is done by defining a special reader macro for the character For other languages, a 
parser has to be implemented along traditional lines. 



178 


Implementation 


Semantic Processing 

The second stage of the analyzer translates the parse tree created by the first stage into an equivalent 
program in a simple intermediate language. 1'hc purpose of this translation is to convert all complex control 
constructs and data constructs in the the source language into simple operations. All of the control constmcts 
arc converted to simple conditional and unconditional branches. All of the data constructs arc converted into 
binding and assignments of simple atomic variables. 

The translation is done through a process of macro expansion. This process expands any macro calls in the 
source program. In addition, it uses a set of additional macro-like definitions which expand each complex 
construct in the source into simpler forms. The set of macro-like definitions for the complex forms act as a 
semantic definition for these constructs. 

Creating a Surface Plan 

1'hc third stage of the analyzer takes the intermediate representation created by the semantic stage and 
creates a surface plan corresponding to it. The surface plan stage is implemented as a symbolic evaluator 
which follows every control path in the program, creating segments, data flow, and control flow as it goes. 

Each time a function call or role is encountered, an appropriate segment is created. In addition, data flow 
is created which links this segment with the appropriate arguments, if any. Each time a conditional branch is 
encountered, a split segment is created, and the symbolic evaluator proceeds along both paths indicated by 
the conditional branch. Each time a branch steers the symbolic evaluator onto a path which has already been 
processed, then a join is created and the symbolic evaluator is prevented from reprocessing tine path. 

Grouping 

The fourth stage of the analyzer takes the surface plan generated by the third stage and creates a grouped 
plan by inserting appropriate intermediate segments. As the first step of this process, the grouping stage 
locates each loop in the surface plan and converts it into an equivalent recursive representation. As part of 
this, the grouping stage has to determine which data flow arcs are associated with the loop and therefore must 
be represented as arguments in the recursive representation. The existence of explicit join segments greatly 
facilitates this task. 

Once the loops have been located, the grouping stage creates a grouped plan by parsing the surface plan in 
terms of the plan building methods. Each time a group of segments is located in the surface plan which 
interact in accordance with one of the plan building methods, these segments are gathered together into a 
single intermediate segment. As part of this, appropriate PLANTYPE and PBM-ROLE facts are created. 

A priori, one might think that parsing in terms of plan building methods would be a difficult task 
requiring significant backtracking. However, it turns out that this is not the case. In fact, parsing is relatively 
straightforward and no backtracking is ever required. The key to this is the fact that there arc only a very 
small number of plan building methods and they arc so different from each other that it is very difficult to 
make a mistake about which one is applicable where. 

The parsing process is driven primarily by tine control flow in the surface plan. After the parsing is 
completed, the grouped plan is adjusted based on the data flow in the plan. In particular, each segment which 
creates a value is moved as close as possible (within the constraints of control flow) to the place where this 
value is used. This adjustment is done in order to further the goal of keeping closely related segments close 
together and unrelated segments far apart. 

Temporal Decomposition 

The fifth stage of the analyzer performs temporal decomposition. Each loop in the grouped plan is broken 
apart into temporal fragments. As discussed in [Waters 79], this decomposition is done based on the data flow 
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in the loop. The main goal is to locate fragments of the loop which can be understood in isolation. The key 
requirement is that all feedback of information from the fragment to the fragment must be contained within 
the fragment. 

A significant weakness of the the temporal decomposition stage is that it only works for tail recursive 
programs (i.e., loops). The discussion in [Waters 78] indicates how temporal decomposition could be 
generalized to singly recursive programs which arc not toil recursive. Generalizing temporal decomposition to 
multiply recursive programs is a topic of current research. 

Locating Compound Roles 

The final stage of analysis identifies which intermediate segments correspond to compound roles. This 
cannot be done until after the other stages of analysis have identified what grouping is appropriate. 

Possible Improvements 

The analyzer is the oldest and most robust module of KBHmacs. It is well tested and relatively bug free. 
Nevertheless, there arc many ways in which it could be improved. 

To start with, there are many limitations on die kinds of programs which the analyzer can analyze. Most 
of diesc limitations stem from limitations of the plan formalism (e.g., the fact that the plan formalism cannot 
represent non-local control flow and the fact that grouped plans cannot represent multiple entry loops). 
Other limitations stem from weaknesses of the analyzer itself. For example, die fact diat temporal 
decomposition can only be applied to loops. 

Finally, little attempt has been made to make the analyzer efficient. It should be possible to speed it up 
considerably by using some of die efficient graph algoridims which arc employed by optimizing compilers. 

Recognition 

From the point of view of the PA project as a whole, the most glaring defect of die analyzer module is the 
fact that it is not able to recognize which cliches could have been used to construct a program. 

When a program is constructed by means of knowledge-based editing using cliches, then die plan contains 
a record of the cliches which were used. Several of the capabilities of KBHmacs depend on the presence of 
this information (e.g., the "Replace" and "Comment" commands). Unfortunately, since analysis is not able to 
recover this information, these commands cannot be used after a program has been modified tcxtually. 

There is one situation where KBHmacs is able to avoid the problem above. If KBHmacs is able to 
recognize that the only effect of a textual modification is to fill in a role, dicn KBHmacs converts the textual 
modification into an equivalent "Fill" command and is able to maintain its knowledge of how die program 
was built up out of cliches. 

In principle, one would expect that it should be possible to parse a plan in order to determine the cliches 
which could have been used to create it just as a plan can be parsed in order to determine which plan building 
methods could have been used to create it. Brotsky [Brotsky 84] has developed an efficient graph parsing 
algoridun which should make dais possible. Work (by Linda Zelinka) is currently under way on an analysis 
module for die next demonstration system which will support cliche recognition. This module is based on the 
work of Brotsky and will operate in terms of die plan calculus. 

The primary reason diat plan building methods were included as part of KBHmacs was to make it possible 
to create a grouped plan even though cliche recognition is not supported. This was done because it was 
assumed diat having a grouped plan was essential for performing knowledge-based editing. However, 
experience has suggested that this is probably not the case. As will be discussed in the last section of diis 
chapter, it would probably be possible to do without the concept of plan building methods if KBHmacs were 
rcimplcmcntcd from scratch. In any event, die next demonstration system will certainly not need to use plan 
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building methods to create grouping since it will support cliche recognition. 

Ada 

The analyzer module supports tire language Ada in addition to Lisp. However, its support for Ada is 
much less cxicnsivc than the support for Lisp. Basically, it supports all of those features of Ada which are 
semantically equivalent to Lisp, and not very much else. 

In particular, data declarations arc treated in a very minimal way. They are essentially processed as 
literals. The analyzer docs nothing with them except save them. Note however, that even this very minimal 
support allows KBHmacs to have cliches for data declarations by simply having cliches which contain the 
appropriate declaration literals. 

The only parts of KBHmacs which can be said to understand Ada declarations in any way arc special 
purpose procedures in the coder module and in constraints. In order to provide better support for 
declarations, the plan formalism would have to be extended so that it could represent information about data 
structures. 

A good example of the limits to KBHmacs understanding of declarations is demonstrated by its support 
for generic packages. On one hand, it understands almost nothing about them. On the other hand, it 
succeeds in making use of them in the scenario in Chapter III. KBHmacs contains an Ada interpreter which 
correctly interprets generic packages. In addition, there arc several generic packages (shown in Appendix B) 
which arc assumed to have been written before the scenario begins. All of this is basically outside of the 
understanding of KBHmacs. Within the understanding of KBHmacs there are several cliches which refer to 
generic packages (c.g., CHAIN_FILE_DEFINITI0N and FILE_SUMMARIZATI0N). These cliches make it 
possible for KBHmacs to create programs which use generic packages. 

Another problematical aspect of the analyzer’s support for Ada is the support for exception handlers. In 
Lisp, the analyzer docs not handle interrupt processing code at all, since it cannot be represented in the plan 
formalism. In Lisp, this weakness is easy to avoid since relatively few Lisp programs use interrupts. However, 
interrupts cannot be so easily ignored in Ada programs. The analyzer provides minimal support for Ada 
exception handlers by converting them into special conditionals which are semantically incorrect, but 
representable in the plan formalism. A reverse conversion is then performed by tire coder module. 

A final difficulty with Ada is inherent in the language itself. Ada is extraordinarily difficult to parse. The 
biggest problem stems from difficulties in discriminating between various syntactic features (for example, 
array references arc indistinguishable from function calls, zero argument function calls are indistinguishable 
from variable references, and qualified names are indistinguishable from record field references). Due to 
tliesc and other confusions, it is impossible to fully parse a program unless a package declaration has been 
defined for every package which the program refers to. (Roles present a special problem since they are, of 
course, not defined in any package.) In addition to being a problem for KBHmacs, this parsing problem is a 
problem for the incremental construction of Ada programs in general. 

The analyzer’s support for Ada should really only be looked at as illustrative. There is however, no 
fundamental reason why more complete support could not be provided. 

Language Independence 

An important aspect of the analyzer is that it is largely programming language independent. Only the first 
two stages arc language dependent. In order to support a new language one has to provide a parser for it and 
a set of macros which define the semantics of the constructs in the language in terms of the intermediate 
language used by the analyzer. In addition to Lisp and Ada, this has been done, at least to some extent, for 
the languages Fortran, Cobol, and PL/I. 
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The coder module is used to create new program text whenever die plan for the program being edited is 
changed. Like the analyzer, the coder operates in a sequence of stages most of which are relatively language 
independent. 

Temporal Composition 

The first stage of the coder reverses the process of temporal decomposition. All of the fragments inside of 
a TEMPCOMP are combined together into a single fragment which is then rendered as a simple recursive plan. 
This process is relatively straightforward and is described in detail in [Waters 78]. 

Grouping 

The second stage of the coding process analyzes a plan in order to determine the basic control flow 
structures in the plan — i.c., the conditionals and loops. The plan is grouped up hierarchically based on this 
analysis. This grouping is important in order to determine which control constructs should be used when 
coding the program. As part of this, any segment which produces a value is moved as close as possible to the 
place where this value is used. This is important in order to be able to maximize the extent to which nesting 
of expressions can be used to implement data flow. 

This grouping process is discussed here because it is logically part of the coding process. However, this 
grouping is actually performed by the analyzer. Instead of grouping a plan when it is going to be coded, 
KBKmacs makes sure that plans are always appropriately grouped. Whenever the analyzer makes a plan for a 
program or for a cliche it groups it. Whenever the knowledge-based editor combines plans together it makes 
sure that the result is appropriately grouped. In addition, the temporal composition stage calls parts of the 
analyzer in order to group up the loops it creates. 

Implementing Data Flow 

The third stage of the coder is in many ways the most difficult and the most important. It analyzes the 
grouped plan and determines how the data flow in the plan should be implemented. The stage first identifies 
all of the places where nesting of expressions can be used. It then selects variables to use for the other data 
flow. 

Selecting variable names turns out to be very important and quite difficult. It is important because the 
readability of a program depends to a very large extent on how well the variable names arc chosen. It is 
difficult because a large number of competing requirements have to be balanced against each other. 

The data flow stage of the coder proceeds in several steps. First, it divides the data flow in the plan into 
sections such that all of die data flow in each individual section can be implemented in die same way. 

Second, the data flow stage identifies which sections can be implemented using nesting of expressions. A 
significant complication to this is that deciding to use nesting of expressions in a given place often introduces 
ordering constraints in the plan. These have to be recorded so that they will not be contradicted later. 

Third, the data flow stage tries to discover a reasonable variable name to use for the sections which cannot 
be implemented using nesting. In order to do this it consults the variable name suggestions in 10 and 
CREATEVAR facts in die plan. These suggestions are made part of the plan precisely because they arc essential 
for diis purpose. Note that diese suggestions come initially either from a cliche or from something typed by 
the programmer. 

Often, several conflicting variable name suggestions will exist for a given section. When this is die case, a 
variety of heuristics are applied in order to pick the best name to use. In particular, informative names such 
as UNIT and SUM arc preferred over uninformative names such as DATA and RESULT. Another key criterion is 
diat names must be chosen so diat the data flow in neighboring data flow sections will not interfere — if the 
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variable UNIT is used for a given section then it cannot be used for any other section which overlaps the given 
section in execution order. 

Often, there arc no suggestions of what variable name to use for a section. When this is the ease the data 
flow stage attempts to use the same name as a preceding or following section which appears to correspond to 
die same logical object. If all else fails, a variable name is generated based on die name of die function that 
creates die value being transmitted or based on a list of acceptable uninformative variable names such as X, Y, 
and Z. 

At the current time, the conflicting requirements and heuristics above arc supported by an ad hoc 
procedure which makes die necessary choices serially without backtracking. This is relatively fast. However, 
it does not create markedly good results. In particular, diis approach is unfortunately quite sensitive to die 
exact order in which the data flow sections come up for consideration. It would probably be preferable to use 
some kind of constraint propagation approach to come to a simultaneous consensus on all of the choices 
which have to be made. 

Basic Coding 

Once decisions have been made about how to implement the data flow in a plan the fourth stage of the 
coder creates code for die program. This is done recursively one segment at a time. For each terminal 
segment, code representing the appropriate function call, constant, or role is generated. For each 
intermediate segment, code is created for the control construct which corresponds to the segment’s plan 
building method (c.g., a conditional is created for an XOR). The decisions of the third stage are followed in 
order to create data flow. 

The result of the basic coding stage is a more or less language independent parse tree for the program. It is 
language independent in diat it only relies on a few basic constructs (such as variable binding, conditionals, 
simple loops, variable assignments, and function calls) which most languages support. In this parse tree, roles 
are expressed as a special kind of function call. 

Final Transformations 

The fifth stage of die coder takes die language independent parse tree and performs a number of language 
dependent transformations on it. The goal of diese transformations is to increase the aesthetics of the 
program produced. For example, in Lisp, these transformations introduce uses of the die special forms IF, 
WHEN, LET*, and LOOP. 

In Ada, much more extensive transformations are supported. In particular, transformations reverse the 
processing which the analyzer uses to encode Ada declarations and exception handlers. Going beyond diis, a 
special procedure inspects the program and creates variable declarations for any variables which do not have 
explicitly specified declarations. Processing to ensure that each data file is opened and closed appropriately in 
a program is also performed in diis stage. (It would probably be more logical if both of diese diings were 
done as part of knowledge-based edidng.) 

A significant complexity in the transformation stage is that it must be careful to maintain the links between 
the plan and the parse tree so that KBFmacs will know what parts of the plan correspond to what parts of the 
corresponding program — c.g., in order to support the "Highlight" command. 

Pretty printing 

The sixth and final stage of the coder creates program text corresponding to the transformed parse tree. 
This is done using a pretty printer [Waters 83b,84b]. The flexibility of this pretty printer makes it possible to 
handle a wide variety of aesthetic issues at this final stage. In particular, die pretty printer is specifically 
designed to make it easy to define how a parse tree is to be unparsed. This is done by defining a set of 
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formatting functions corresponding to the various kinds of nodes in the parse tree. 

Possible Improvements 

As can be seen in the scenarios above, the coder module produces reasonable results. It works for 
completed programs, partial programs containing unfilled roles, and cliches. However, experimentation has 
shown that the coder is creaking on the edge of collapse. Several problems arc particularly severe. 

The biggest problem stems from the defects of the data flow stage. This stage docs a good job of creating 
correct programs. However, it has a tendency to produce programs which, though correct, are unreadable. 
'Ihe fundamental problem is that the coder docs not really have any understanding of what makes data flow 
aesthetic. It would probably be a considerable improvement to reimplement this stage using some kind of 
constraint propagation as discussed above. However, it is not clear that that would be a complete solution to 
the problem. 

Another problem is that the transformational stage is not supported in a general way. Each transformation 
has to be implemented as a procedure which operates directly on parse trees. It would be better to write a 
general transformational support system which made it easier to state individual transformations. In addition, 
there might have to be some kind of support for deciding which transformation to apply when several are 
applicable. 

An interesting problem with die coder is that it is not able to make good use of macros in the Lisp code it 
produces. A few macros arc introduced by transformations which are specifically designed to introduce them, 
however, there is no general mechanism for ensuring that user defined macros will be used. It is probably not 
possible to use macros effectively in the absence of a general recognition mechanism which can reliable detect 
where computation which corresponds to a macro exists in the plan for a program. 

A final problem is that of stability. When a programmer makes a small change in a program he wants to 
see only a small change in the code. In particular, he does not want to see any changes at all in the parts of the 
code which arc not effected by the change. This important property is only provided indirectly by the coder. 
In the examples tested so for, stability is achieved because the coder processes similar programs in similar 
ways. However, there is not any part of the coder which explicitly checks to see that stability is achieved. As a 
result, it is not clear that it really is achieved in any robust way. 

A problem related to the above is that the programmer cannot, in general, control the style of the code 
produced. If the programmer makes some purely stylistic (as opposed to semantic) change in the program 
text, then the coder will simply restore the text to its old form the next time it codes the plan. The only 
exception to this is variable names which arc the only place where die coder explicitly takes advice from the 
programmer. 

Language Independence 

An important aspect of the coder is diat it is largely programming language independent. To a 
considerable extent, only the last two stages arc language dependent. In order to support a new language, one 
has to define an appropriate set of transformations which introduce language specific forms into die language 
independent parse tree created by die first four stages of the coder. In addition, one has to provide an 
unparscr for die language. This latter task is facilitated by the existence of the powerful pretty printer 
discussed above. 

In addition to Lisp, the coder supports all of the aspects of Ada which the analyzer supports. However, if 
the analyzer were extended then the coder would have to be extended too. In addition, the coder provides 
basic support for the language FL/I. 
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Knowledge-Based Editor 

The knowledge-based editor module supports 14 commands which operate on plans. These commands 
arc specified using a simple Fnglish-likc command language. Figure 30 shows a grammar for this command 
language. Numerous examples of commands arc shown in the scenarios in Chapters 11 & 111. 

command :: = Define a [ cliche-name ] definition [with parameter-list ]. 

| Add a parameter variable-name [to definition ]. 

| Fill role-reference with Instance. 
j Replace reference with Instance. 
j Insert Instance. 

I Copy definition [to definition ]. 
j Remove reference. 
j Share reference and reference. 
j Highlight reference. 
j Comment [ definition ]. 
j What needs to be done [in definition ]? 
j Analyze IdefInltlon}. 

| Finish editing [ definition ]. 
j Use language SYMBOL. 

definition definition-type SYMBOL 

definition-type ::= program | function | procedure | package | cliche 

parameter-list ::= a parameter SYMBOL | parameters SYMBOLS 
SYMBOL ::= a name rendered in upper case 

SYMBOLS ::= SYMBOL and SYMBOL | SYMBOL, {SYMBOL,} and SYMBOL 
reference ::= role-reference \ function-reference 

role-reference ::= the [ ordinal ] role-name (of the role-name} [in definition ] 
function-reference the [ ordinal ] SYMBOL [in definition ] 
role-name :: = the name of a role rendered in lower case 

ordinal ::= first i second | third i fourth j fifth j sixth | ... 1 last 
Instance :: = CODE 

| a-or-an cliche-name [of Instances ] 

| role-reference 
j a use of function-reference 

CODE :: = an expression in the current language rendered in upper case 
a-or-an ::= a | an 

cliche-name ::= the name of a cliche rendered in lower case 

Instances ::= Instance 

| Instance and Instance 
I Instance, {instance,} and Instance 

Figure 30: The knowledge-based command language. 

References 

The most basic part of the command language is the ability to refer to roles in a program. This is done by 
using the same kind of phrase which is used to define a role. For example, one might say "the step of the 
enumerator". 

The cursor position in the Hmacs buffer is an implicit part of each command. It is used to disambiguate 
references. The phrase "the step of the enumerator" is interpreted to mean the step of the enumerator in 
the program containing the cursor. 

Alternately, the definition the role is in can be suited explicitly in a reference phrase. For example, one 
might say "the enumerator in the program REPORT-TIMINGS". 

If there is more than one role of the same name in a given program, then a role reference can be 
disambiguated with reference to the execution order of the forms in the program. For example, one might say 
"the second enumerator" in order to refer the the second enumerator (in execution order) in the program 
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currently being worked on. 

One can refer to both empty roles and filled roles. However, the ability to refer to a filled role depends on 
die fact that the filled role is represented in the plan — i.e., that the program has not been reanalyzed since 
the role was filled. 

In addition to the roles in a program, one can refer directly to the various function calls in a program. This 
is done by using die name of die function being called. As with roles, one can use ordinal numbers to 
disambiguate a function reference, and explicitly specify the program which contains the function call. For 
example one might say "the last FORMAT in the program SIMPLE-REPORT". 

Instances 

Another basic part of the command language is die ability to create plans corresponding to instances of 
cliches and pieces of code. There arc four kinds of instances. An instance can specify a literal piece of code. 
In this ease, the indicated code is analyzed in order to create an equivalent plan. 

An instance can also be a role reference or a use of a function reference. In cither of these eases, the 
instance is converted into a trivial plan which represents data flow from the indicated segment in die plan for 
die program being worked on. 

An instance phrase can be an instance of a cliche. In addition to the name of die cliche, a cliche instance 
can specify sub-instances to be used to fill roles of the cliche. The correspondence between sub-instances and 
the roles of the cliche is specified by die PRIMARY-ROLES declaration of the cliche definition. 

When an instance phrase is an instance of a cliche, the plan for the cliche is copied out of the library and 
the constraints for the cliche arc run. These constraints can access any sub-instances which arc specified as 
part of the instance phrase. (Note that this is die only time diat RENAME constraints are run.) If dierc are any 
sub-instances specified for roles of the instantiated cliche then die "F m" command is then called in order to 
fill the appropriate roles in die instance. 

F'or the most part, the grammar in Figure 30 is an LLO language and therefore trivial to parse. However, 
there are two areas of complexity involving instances. First, an instance of a cliche can contain an instance of 
a cliche as one of its sub-instances. If this cliche instance in turn contains sub-instances, then it may be 
ambiguous as to which cliche a particular sub-instance belongs to. This problem can be seen in die phrase "a 
list of X, a list of Y, Z, and W" which could be equivalent to cidicr (LIST X (LIST Y Z W)) or 
(LIST X (LIST Y) Z w). This problem is arbitrarily resolved by making the lowest level cliche instance 
contain as much of the command as possible (e.g., choosing the first alternative above). 

Second, Parsing die non-terminal CODE can be very difficult because it requires the ability to parse 
whatever language KBHmacs is currently operating on. In order to decouple the command parser from the 
program text parser, restrictions are placed on what code can be typed in a command. Such code is required 
to be cither a string literal, a number, a symbol, an expression surrounded by parentheses or a quoted instance 
of any of the above. This restriction makes it possible for the command parser to delimit a piece of code 
without having to actually parse it. (Fortunately, although die restriction above is not as natural for Ada as it 
is for Lisp, it is still palatable.) 

Knowledge-Based Commands 

The subsections below describe how each of die commands in Figure 30 is implemented. Kach of die 
commands is implemented as a special purpose procedure which operates directly on die plan formalism. 
Most of these procedures arc straightforward — die plan formalism docs most of die work. 

Before any command is run, the knowledge-based editor checks to see whether text editing has been 
applied to the program containing the editing cursor. If it has, then the program text is analyzed in order to 
create an up to date plan. 
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Typically, running a command will modify the plan for the program being worked on. When this is the 
ease, the plan is recoded, and the cursor is positioned before the first interesting change in die program text. 
This position is determined by comparing the program text before and after the command under the 
assumption that changes to the body of a program arc more interesting than changes to declarations. 

The Knowledge-Based Command "Define" 

The basic action of the "Define" command is to create a plan corresponding to an empty program 
definition. The command specifics the name of the definition and the type of die definition i.c., whether it 
is a function, cliche, procedure, etc. This information is entered into die plan. The command checks that 
there is not already a program defined with the same name and complains if there is. 

Optionally, a "Define" command can specify a list of parameter names. If these arc specified dicn they 
arc entered as LAMBDA-ARG inputs of the top level segment in die plan. 

A "Def i ne" command can also specify the name of a cliche which is to be instantiated as the body of the 
program being defined. This form of the "Define" command is merely an abbreviation for a simple 
"Define" command followed by an "Insert” command. 

The Know ledge-Based Command "Add a parameter" 

This command makes it possible to add additional parameters to a program definition. This is done by 
adding more LAMBDA-ARG inputs to the top level segment of the plan. If no destination definition is specified 
then it defaults to the program containing the editing cursor. 

The Knowledge-Based Command "Fill" 

The "Fill" command is die central knowledge-based command. It fills a role with an instance. The 
command first checks to see that the role has not already been filled. If the role has been filled, an error 
message is generated. 

In order to fill the specified role with die specified instance, the role segment is physically replaced by the 
plan for die instance. The locality and additivity of die plan formalism guarantees diat tliis is all diat needs to 
be done. If a compound role is being filled, then die matrix and sub-roles inside of the compound role are 
removed before inserting the instance. Thus, the matrix of the instance replaces die matrix of the compound 
role. 

The only real complexity in this is that die "Fill" command works hard to link die instance plan into the 
data flow of the larger plan. This is done using several heuristics. If the instance plan has a return value, then 
this value is routed to wherever die value of die empty role was used. Similarly, arguments to die instance 
plan arc connected up to the data flow in the larger plan by looking at what die inputs of the empty role were 
connected up to. 

If there are any references to free variables in the instance plan then the "Fill" command tries to 
determine what data flows correspond to these variable names, and link them to the free variable references. 
Lastly, if dicre are empty input roles in the instance plan dicn die "Fill" command tries to fill them with 
data flow by looking at what the inputs of the empty role were connected up to. 

Once the instance plan is connected into die larger plan, any constraints specified for the cliche which 
contains the role which has just been filled arc rerun. Note diat constraints may be run many times when the 
"Fill " command is called recursively either by the "Fill " command or by constraints dicmselvcs. (Both 
DEFAULT and DERIVED constraints call the "Fill" command in order to perform their actions.) 
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The Knowledge-Based Command "Replace" 

The "Replace" command is used to replace a filled role or function call with an instance. It first checks to 
sec that the reference to be replaced is not an empty role. It then removes the contents of the role or function 
call segment and uses the fill command in order to insert the plan for the instance into the plan. 

The Knowledge-Based Command "Insert" 

The "Insert" command inserts an instance into a plan at a place corresponding to the position of the 
editor cursor. To do this, it inserts a special role at the position of the cursor and then analyzes the program in 
order to get a plan containing that role. It then calls the "Fill" command in order to fill this special role with 
the specified instance. 

Kmbcddcd instances of {a ...} annotation are handled exactly the same way. They arc converted into 
"Insert" commands at the time when the program text is analyzed. 

The Know ledge-Based Command "Copy" 

The "Copy" command is similar to an "Insert” command except that, instead of instantiating the cliche 
specified as its first argument, it copies the whole cliche verbatim including the cliche declarations. All of this 
is then inserted into the plan without running any constraints. If no destination definition is specified, then it 
defaults to the program containing the editing cursor. 

The Knowledge-Based Command "Remove" 

The "Remove" command deletes the indicated role or function call from the plan. When doing this it also 
deletes any other segment which exists solely to provide data to the deleted segment. This is done on the 
theory that all such segments have become useless. 

The Knowledge-Based Command "Share" 

The "Share" command takes two references and shares them together. The references arc first resolved to 
segments in the plan. Then the plan is checked to sec that the two segments compute the same thing. This is 
relatively straightforward to do by simply comparing the segments and the sources of the data flow to them. 
The locality of information in the plan formalism greatly facilitates this comparison. 

If die two segments do compute the same thing, then whichever segment comes later in the plan is 
removed and data flow is routed from the first segment to all of the places where the value of the second 
segment was used. 

The Know ledge-Based Command "Highlight" 

The "Highlight" command uses the standard editor highlighting mechanism (underlining) to highlight a 
role or a function call. This command depends on the fact that the plan formalism maintains a 
correspondence between segments and the code w'hich implements them. 

There are two basic limitations to this command. First, there are many situations where the plan 
formalism fails to be able to record what program text corresponds to a role. Second, the standard editor 
highlighting mechanism is not capable of highlighting discontiguous sections of the program text. Thus, if a 
role corresponds to discontiguous pieces of program text (c.g.. an enumerator) it cannot be fully highlighted, 
lhc latter difficulty would be easy to overcome. The former difficulty might not be. 

The Knowledge-Based Command "Comment" 

The "Comment” command creates a comment for a program in the form of an outline as shown below. If 
no particular definition is specified as part of the command, then a comment is constructed for the program 
containing the cursor, flic comment is created by following the CLICHE and CLICHE-ROLE facts in a plan and 
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the DESCRIBED-ROLES and COMMENT declarations for the cliches in the plan. 

;;; The function REPORT-TIMINGS is a simple-report. 

;;; The file-name is "report.txt". 

;;; The title is "Report of Reaction Timings (in msec.)". 

;;; The enumerator is a list-enumeration. 

;;; It enumerates the elements of TIMINGS. 

;;; There are no column-headings. 

;;; The print-item is a tabularized-print-out. 

;;; It prints out (CAR LIST) in columns. 

;;; The summary is an idiosyncratic computation. 

The first line of the comment specifies the name of the function/proccdurc being described and the top 
level cliche in its plan. The subsequent lines in the comment describe the DESCRIBED-ROLES of die top level 
cliche in order. Kach role is described in one of four ways. If the role is missing diis fact is reported. If the 
role is filled with a cliche then the name of this cliche is given and a one line description of the filling cliche is 
created based on the COMMENT declaration for the filling cliche. If the role is filled with a simple non-cliched 
piece of code dicn tliis piece of code is exhibited. Finally, if the role is filled with a complex piece of 
non-cliched computation dicn the phrase "idiosyncratic computation" is used to describe die role. 

J’he above approach to constructing a comment is based on the earlier work of Cyphers [Cyphers 82] 
which in turn descends from die work of Frank [Frank 80], Both of these efforts investigated the basic issue 
of generating an English language description of a program based on die information in the plan formalism. 
Frank focused on describing the basic properties of programs which were not constructed using cliches. 
Cyphers switched die focus to generating an explanation of a program based on the cliches used to construct 
it. He attempted to create free flowing English paragraphs describing a program in full detail. 

'flic current system uses Cyphers’ basic method modified in two ways. First, most of the problems 
associated widi generating free form English arc side stepped by outputting die comment in an outline form. 
Second, the complexity of the comment is limited by truncating die description at a nesting dcpdi of two. 

The Knowledge-Based Command "What needs to be done" 

This command looks at the plan for the specified definition and determines what roles still need to be 
filled in and what output roles still need to be used. A report of this information is displayed to the 
programmer in a temporary window at the top of the screen. If no definition is specified as part of the 
command, then a report is displayed of what needs to be done for every program for which a plan exists. 

The Knowledge-Based Command "Analyze" 

The "Analyze" command triggers the analysis of the named definition if it has been tcxtually modified 
since it was last analyzed. If no definition is specified, then the definition containing the editing cursor is 
analyzed. 

The Know ledge-Based Command "Finish editing" 

This command is identical to the "Analyze" command except that it calls the "What needs to be done" 
command in order to check that the program is indeed finished and then removes any output role annotation 
from the program text so that it can be processed Ivy a standard interpreter or compiler. 

There is also a procedural hook which is part of the "Finish editing" command that checks to see 
whether any additional actions should be performed based on the program just completed. This is how the 
creation of special cliches after die definition of the package MAINTENANCE_FILES in Chapter III is triggered. 
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The Knowledge-Based Command "Use language" 

This command sets an internal variable which controls what language is being used for output to the 
programmer. It is assumed Uiat the programmer will use this same language when typing literal pieces of 
code in commands. 

The commands s-N and s-P 

The commands s-N (move to the next empty role) and s-P (move to the previous empty role) are not 
actually supported by the knowledge-based editor. Rather they are implemented as user-defined commands 
in Hmacs. They operate in a purely textual manner simply searching for the next (previous) occurrence of an 
empty piece of role annotation. They arc described here because they fit in logically with the 
knowledge-based command language since they arc based on the concept of roles. 

Possible Improvements 

The knowledge-based editor is one of the most experimental parts of KBEmacs and is still undergoing 
rapid evolution. It is expected that numerous improvements will be made as experimentation continues. 
However, as demonstrated by the scenarios in Chapters II & III, the current commands seem to be quite 
useful. 

Language Independence 

The knowledge-based editor commands arc almost completely programming language independent since 
they operate almost exclusively in the domain of plans. The only exceptions to this arc the "Comment" and 
"Highlight" commands which have to interact with the actual language being used. Even these commands 
arc largely programming language independent. They both depend on the fact that the coder has already 
created program text in die appropriate language. 

Interface 

An interface (implemented by Pitman [Pitman 83]) unifies ordinary program editing and knowledge-based 
editing so that they can both be conveniently accessed through the standard Emacs-style Lisp Machine editor. 

The Style of the Interface 

There are two major aspects to the style of die interface: die way the programmer types knowledge-based 
commands and die way the results of commands are communicated to die user. The command interface is 
strongly integrated with Emacs in both operation and style. The knowledge-based commands arc supported 
as an extension of the Emacs command set. More dian this, as discussed below, the s-X window which is 
used for typing knowledge-based commands operates in very close analogy with the m-x window which is 
used for typing extended Emacs commands. In addition, a number of single character commands such as s-N 
and s -; are provided because it is in the style of Emacs to do so. 

The results of knowledge-based commands arc communicated to the programmer by altering the program 
text in the Emacs buffer. The intention is that the programmer should interact with KBEmacs much in the 
same way that he might interact with another programmer typing at the same keyboard. There arc four basic 
virtues to this approach, f irst, program code provides a detailed unambiguous description of the net effect of 
the set of knowledge-based commands used so far, expressed in a language which is familiar to the 
programmer. Second, using program text facilitates the intermixing of direct editing with knowledge-based 
editing. Third, using program text submerges plans into the background allowing the programmer to think 
textually much of the time. Fourth, since the developing program is always represented in the Emacs buffer, 
the programmer can apply any of the standard I .isp Machine tools to it at any time. 
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The above not withstanding, it is possible that there are other tilings which might be better than program 
text as a vehicle for communication between KBHmacs and the programmer. Program text has the problem 
that it can be quite large. A 100 line program is still hard to understand even if it was created using only 10 
knowledge-based commands. It would be desirable to have some more compact representation. 

One thing which has been considered but not yet explored in detail is using a stylized comment like the 
one created by the "Comment" command as a continually updated summary of the program. The goal would 
be to allow the programmer as well as KBHmacs to edit this comment. Given that the analyzer cannot 
currently recognize what cliches could have been used to create a program, it would not currently be possible 
to create such comments after direct editing had been applied. Nevertheless, such an interface might be a 
very useful extension to KBHmacs. 

Typing Knowledge-Based Commands 

As mentioned above, the s-X window which is used for typing knowledge-based commands operates in 
very much die same way as the m-X window which is used for typing extended Hmacs commands. The 
interaction occurs in a small window below die editor buffer. Once one or more commands arc typed, they 
arc executed by typing the I.isp Machine Key <end>. (In die screens in scenarios in Chapters II & III the 
commands are shown above the editor buffer because diis improves die visual flow of the scenarios.) 

An interesting feature of die s-X window is diat it supports word completion. 'Phis significantly reduces 
the number of characters which actually have to be typed in order to type a command. In the example below, 
bold face italics is used to indicate the characters which are introduced via word completion as opposed to the 
characters typed by the user. 

s-X Fill the enumerator w 1th a fist-enumeratfon of TIMINGS. <end> 

Another aspect of the s-X window is that the full set of F.macs commands can be applied to it. As a result, 
the user can easily correct and modify die command he is typing. 

The typing of knowledge-based commands is further facilitated by die existence of a number of 
abbreviated commands such as s-F. These commands (summarized in Figure 31) operate by initializing die 
s-X window with a partially typed command. For example, if the editing cursor happened to be positioned 
before die enumerator, then the command above could be typed as shown below, further reducing what the 
user has to type. 

s-F Fill the enumerator with a 1ist-enumeratfon of TIMINGS. <end> 

Some abbreviated commands (c.g., s -;) automatically generate everything which has to be typed for a 
command. 

command s-X buffer initialization 

s-F <= = > Fill the next empty role with 

s-R < = = > Remove the next empty role 

s-; < = = > Comment the current definition . <end> 

s-W <==> What needs to be done? <end> 

s-A < = = > Analyze the current definition. <end> 

s-<end> <= = > Finish editing the current definition. <end> 

Figure 31: Summary of abbreviated commands. 

There are two key potential problems with any Hnglish-likc command language. First, such command 
languages are often wordy and cumbersome to type. Here, that does not seem to be very much of a problem 
because various mechanisms reduce what needs to be typed to the point where it is not clear that any 
command interface cotdd reduce it much further. 
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Second, with an Knglish-likc interface there is always the danger that a user will make the mistake of 
assuming that the interface language actually is Knglish and start typing all kinds of sentences the system 
cannot understand. Here, this problem is ameliorated by the fact that the command language is so restricted 
that it is easy for the user to get a good grasp of what he can type and what he cannot. 

Asynchronous Processing of Knowledge-Based Commands 

An interesting aspect of the interface not shown in the scenarios is that it contains a mechanism for dealing 
with the slowness of KBKmacs. The command s-X described above forces the programmer to wait and do 
nothing until the specified knowledge-based commands have been processed. An additional command h-X 
(typed by holding down the l.isp Machine keyboard shift key HYPER and typing an X) is identical to the s-X 
command in every way, except that it causes the specified knowledge-based commands to be processed 
asynchronously in a background process. 

While this asynchronous processing is going on, the programmer may continue to work on other things. 
(Problems will of course arise if the programmer attempts to work on tine same program the knowledge-based 
editor is working on.) Although it takes a little getting used to, it turns out that asynchronous processing docs 
go a long way towards making the slowness of KBRmacs more palatable. 

The programmer is given a signal when the asynchronous processing is completed. However, the results of 
the commands are not immediately inserted into the editor buffer. Rather, tine knowledge-based editor waits 
until tine programmer requests that the changes be inserted by typing a h-<resume> command. (It was 
discovered through experimentation that inserting the changes immediately can be very disconcerting.) 

The asynchronous processing above is supported by a message passing mechanism which controls the 
interaction of a number of independent processes. This message passing mechanism (which was a major 
focus of Pitman’s work) was generalized to the point where several Lisp Machines could be used at once in 
order to increase the throughput of KBEmacs. 

Implementation 

For die most part, the implementation of die interface is straightforward. However, it is complicated by 
the fact that it has to interact directly with die undocumented internal functions of die standard Lisp Machine 
editor. Nevertheless the interface is a relatively well tested and robust part of K BEmacs. 

Language Independence 

The interface itself is totally language independent. However, it relics on die fact diat the standard editor 
has a basic understanding of the language being edited. If diis is not the ease, dicn die standard editor has to 
be extended. 

For example, version 4 of the Lisp Machine editor docs not support Ada. In order to make the interface 
work for Ada, a few basic extensions had to be made in order to provide minimal support for Ada. In 
particular, the editor was given die ability to locate Ada programs in a buffer. (T his also provided support for 
die standard Emacs commands m-. (goto definition) and c-shift-C (compile definition).) However, 
support was not provided for highlighting parts of an Ada program. As a result, the "highlight" command 
docs not work for Ada even though die knowledge-based editor knows what should be highlighted. 

Syntax-based editing of programs is not supported directly by KBEmacs but rather by the standard editor. 
As a result, syntax-based editing will be supported only if the standard editor supports it. It is in principle 
possible to extend the standard editor to support syntax-based editing of a new language, but it is not 
particularly easy. 

The Lisp Machine editor has not yet been extended to support syntax-based editing of Ada programs. As 
a result, only text-based editing can be applied. 



192 


Implementation 


I.ike syntax-based editing, interpretation and/or compilation of programs is not supported directly by 
KHKmacs but rather by the standard Lisp Machine software. If interpretation and/or compilation is desired 
for a new language, then an interpreter and/or a compiler will have to be implemented. 

A simple Ada interpreter has been implemented so that the programmer can test Ada programs. This 
interpreter is capable of running the programs in Chapter III. However, it only supports part of the language 
and is only intended as an illustration. 


Going From a Demonstration To a Prototype 

As discussed in Chapter IV, in order to convert KBFmacs from a demonstration system into a prototype, 
the system needs to be rcimplcmcntcd with special attention to speed, robustness, and completeness, "this 
section suggests several changes which should be made were the system to be rcimplcmcntcd. It also 
describes an experiment which suggests that die system can be straightforwardly speeded up by more than an 
order of magnitude. 


A More Efficient Representation For Plans 

Figure 32 shows an experimental plan implementation which is more efficient Uian the current 
implementation of the plan formalism. 


now-seg :: = (name: 

supseg: 
pbm-role-name: 
plan-type: 

plan-type-info: 
role-supseg: 
role-name: 
role-type: 
cliche-name: 
rec-supseg: 
code: 
def-type: 
def-name: 
declarations: 
cases: 


name 

[ now-sog ] subsegs: ({new-seg}) 

[ACTION | PRED | JOIN | OP | REC | INIT] 

LAMBDA | EXPR | XOR | PRED | SSR | TEMPCOMP | 
JOIN | CONSTANT | FUNCALL | RECURSION 
namo-or-constant 

[new-seg] role-subsegs: ({new-seg}) 

[name] 

INPUT | OUTPUT | INTERNAL 
[name] 

[new-seg] rec-subsegs: ({ naw-seg }) 

{{form}) 

[FUNCTION | PROCEDURE | PACKAGE | CLICHE] 
[name] 

({c 7 Iche-declaratlon}) 

({ new-case })) 


now-case :: = (name: 

seg: 
side: 
when: 
cflow-f rom: 
is-lower-env: 
ports: 


name 
new-seg 
INPUT | OUTPUT 
[ form ] 

({new-case}) 

({ now-port }) 
{{now-port})) 


now-port ::= (name: 

case: 
dflow-from: 

kind: 
kind-info: 
var-name: 
lower-env: 
part-of: 
rec-superior: 
side-effect-outs: 


name 

now-caso 
{{now-port}) 
ARG | FREE-VAR 
{argno \ name] 
[name] 
[new-case] 
{{now-port}) 
Inew-port ] 
{{now-port}) 


cflow-to: {{now-caso}) 


dflow-to: {{now-port}) 
RETURNVAL | SIDE-EFFECT | DUMMY 


has-parts: {{now-port}) 
rec-inferiors: {{now-port}) 
side-effect-in: {now-port}) 


Figure 32; A More Efficient Representation For Flans. 

The experimental implementation encodes basically the same information as die implementation 
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discussed in the beginning of this chapter. However, it represents this information much more compactly. 
The experimental implementation represents plans in terms of record structures which point directly to each 
other, instead of as a set of facts in a data base. There arc three kinds of record structures: one for each 
segment, one for each ease of a segment, and one for each port in a ease. 

In the experimental data base, retrieval is done by directly following pointers instead of by means of 
patterns and indexing. (Note that all of the pointer fields are doubly linked. For example, each segment 
points to its super-segment and to each of its subsegments.) Following pointers directly speeds up retrieval by 
many orders of magnitude. In addition, since all of the information about a segment or port is contained in a 
single structure, only one retrieval has to be performed in order to get all of this information. In the current 
data base, several retrievals have to be performed to get all of the information about a segment or port. 

In addition to representing information more compactly, the experimental plan representation in 
Figure 32 streamlines and improves the plan formalism in several ways. 

In the plan formalism, scgcascs (as opposed to segments) appear in all of the facts even though they are 
seldom needed. In the experimental plans, eases arc only used to fix the position of ports, and as the end 
points for control flow. Another difficulty with eases in the plan formalism is that, in isolation, it is not 
possible to determine whether a case is attached to the input or the output side of a segment. It turns out that 
this makes a number of operations on plans needlessly complex. Therefore, the side of a ease is made explicit 
in the experimental plans. 

The segkind, segtype, and plantypc fields arc largely redundant in the plan formalism. They arc combined 
into a single field in the experimental plans. Similarly, the distinction between lambda-args and actual-args is 
not important and is eliminated. 

In die plan formalism, there arc several situations where connections between ports which are closely 
analogous to data flow are not represented by data flow. In particular, both die connections between ports on 
a join and the connection between a temporal port and its lower-env arc represented by special purpose facts. 
This makes it needlessly complex to trace data flow through a plan. In the experimental plans, data flow is 
used to represent all data connections. 

In the experimental plans, temporal ports arc the same as non-temporal ports except that they have a 
lower-env specified. Whether a port is an input or an output is determined by looking at the side of the case it 
is in. The experimental plans have a special field for specifying die correspondence between the ports of a 
segment and the ports of any recursive instances of that segment. In the plan formalism this information is 
awkwardly encoded by requiring diat corresponding ports must have the same name. 

In the experimental plans, the plan building methods arc simplified. In particular, SSRs are simplified by 
no longer allowing them to have an initialization. (The effect of an initialization can be achieved by having a 
TEMPCOMP which groups the initialization and SSR together.) Removing initializations from SSRs makes it 
possible to get rid of the special body segment as well. 'This converts SSRs into one level structures instead of 
two level structures. With this change, all plan building methods become one level structures and plan 
building methods can simply be understood as specifying how the subsegments of a segment interact. As an 
additional simplification, all of die subsegments of a TEMPCOMP are referred to as ACTIONS getting rid of the 
fancy names ENUM, FILTER, etc. 

Gregory Faust and the audior performed an experiment to demonstrate die advantages of the 
experimental plan representation shown in Figure 32. 'The representation was implemented and parts of the 
knowledge-based editor were rcimplcmcntcd in terms of the experimental representation. r Hie 
rcimplcmcntcd knowledge-based editor was dicn tested on die task of instantiating a relatively complex cliche 
and inserting it into a plan. This resulted in an increase of speed by a factor of 30 when compared with the 
current implementation of KBKmacs. There is reason to believe diat die experimental plan representation 
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would lead to at least an order of magnitude increase in speed in the other parts of KBKmacs as well. 
Eliminating Temporal Decomposition 

The introduction of the improved plan representation presented above would speed up KBKmacs without 
fundamentally changing the way the system operates. There arc several ways in which it might be possible to 
significantly simplify and thereby speed up the system by changing the way it operates. 

One thing which could be done would be to remove temporal decomposition from die analyzer and 
temporal composition from die coder. As will be discussed below there arc two ways in which this could be 
done without reducing the capabilities of the system. If this were done, it might speed up the system by as 
much as a factor of 2. It would also significantly reduce die complexity of the analyzer and coder. 

Perhaps the best way to remove the idea of temporal composition/decomposition from KBKmacs would 
be to incorporate it into the target language. This could be done by using a notation and compiler extension 
(such as the one presented in [Waters 83a,84a] and discussed in the next chapter) which directly supports 
computations in terms of series of values. KBKmacs could manipulate these computations as simple 
expressions, while the compiler extension handled the problem of temporal composition. 

Another approach would be to simply represent all loops as loops and embed knowledge about temporal 
composition in the knowledge-based editor. This would increase the complexity of die knowledge-based 
editor, but only when it was actually engaged in inserting a cliche into a loop. In any case, die analyzer and 
coder would always be able to operate on temporally composed plans. 

Eliminating Plan Building Methods 

Another way in which KBKmacs could be fundamentally simplified would be to eliminate the idea of plan 
building methods. As has been discussed in various places above, plan building mcdiods are used for three 
things in the current system. First, diey make it possible to create a grouped plan even though cliche 
recognition is not supported. Second, the grouped plan makes it possible for KBKmacs to make an intelligent 
guess about what part of die matrix of a cliche is associated with a compound role. Third, the grouped plan is 
used by die coder as a guide for what control constructs to use in the code produced. 

As discussed in the section on plans above, although it was originally diought diat grouped plans were 
essential as a basis for interaction with the programmer, this has not turned out to be the ease. In addition, it 
would probably be relatively straightforward to determine what part of the matrix of a cliche is associated 
with a compound role without using grouping. This could be done by either creating a new kind of 
annotation or by taking advantage of the fact that only a very few special kinds of compound roles are actually 
used in the current cliche library. (It should be noted diat if computation in terms of series were supported in 
the target language then there would not be any compound roles at all in die current cliche library.) 

As a result, the only essential use of plan building methods is in die coder. First of all, this suggests that 
the process of grouping should be moved to die coder. This would significantly simplify die rest of the 
system. Unfortunately, confining grouping to the coder might not speed things up since die plan would have 
to be regrouped every time it was coded. However, it might be possible to simplify the grouping process if it 
were aimed only at satisfying die needs of die coder. In particular, there would be not need to actually encode 
the grouping in die plan. It could be recorded in temporary structures used only by the coder. 

Knowledge About Data Structures 

In order to become a true prototype, KBKmacs would have to be extended so that it had a better 
understanding of data types. There arc two aspects to diis. First, the plan formalism would have to be 
extended so that it was capable of representing the fact that most data types can be determined by static 
analysis. This is even true in Lisp. The current lack of information about data types in a plan reflects die 
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pessimistic l isp assumption that nothing can be determined about data types by static analysis. 

Second, in order to really support a language like Ada which allows extensive user definition of new data 
structures the plan formalism would have to be further extended so that it could represent how complex data 
structures arc built out of simple ones. The work on the plan calculus suggests how this could be done. 

Defining a Realistic Cliche Library 

A final step in converting KBKmacs into a true prototype would be the construction of a much more 
complete cliche library. This might require the definition of as many as a thousand cliches. Although this 
would not be an easy task, there is no theoretical reason why it could not be done. (It should be noted that, 
the speed of KBKmacs is independent of the size of the cliche library.) If a large body of cliches were defined, 
then it would be beneficial to add some kind of indexing facility into the library in order to facilitate the 
retrieval of cliches. 
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VI-Future Directions 

Work in the PA project is continuing in several areas. The largest amount of effort is going into the 
construction of the next demonstration system. As discussed extensively in Chapter IV, this new system will 
go beyond KBBmacs primarily by supporting contradiction detection and interaction in terms of design 
decisions rather than specific algorithms. 

Applications of the Current Techonology 

Another area of activity centers around applications of some of the ideas behind KBFmacs. In particular, 
several systems have been built which arc much more modest in their goals than KISHmacs, but which have 
the advantage of being fully practical prototypes. This work includes both efforts within the PA project and 
work by other groups. 

Tempest 

A particularly interesting application of the ideas behind KBBmacs is the Tempest editor implemented by 
Sterpe [Sterpe 85]. At the highest level of abstraction, Tempest is very much the same as KBBmacs. It has a 
user extendable library of cliches referred to as templates which contain roles referred to as blocks. Users can 
instantiate templates and fill in blocks. Simple constraints can be used to control die way blocks are filled in. 
Tempest maintains a record of the structure of the text being edited in terms of templates and blocks. Several 
commands make use of this structure —c.g., an instance of a template can be replaced by an instance of 
another template. Tempest is built on top of a standard Emacs-style text editor. Text-based editing 
commands can be freely intermixed with template-based editing commands at any time. 

The primary difference between Tempest and KBBmacs is that, instead of using a plan-like 
representation. Tempest operates almost entirely in terms of text. For example, the process of instantiating a 
template boils down to merely inserting a file containing the text of the template into die editor buffer. The 
only non-tcxtual effect of instantiating a template is diat it causes Tempest to update its record of the structure 
of the text being edited. 

The textual orientation of Tempest makes the system vastly simpler than KBBmacs. For example, there is 
no analyzer module and no coder module. In consequence, Tempest is three to four orders of magnitude 
faster than KBBmacs. This enables Tempest to run with acceptable speed on an IBM PC. 

On the negative side, the textual orientation of Tempest fundamentally limits the power of the system. 
The problem is that Tempest has no understanding of the text it is operating on. One result of diis is diat die 
system is very limited in what it can do with a template — it can insert a template tcxtually into die editor 
buffer, but it cannot modify it so diat it will fit in better widi the surrounding text. 

In principle. Tempest has a very broad range of applicability — it can be used to edit anything which can 
be represented as text. However, in practice, it is only really useful in situations where templates can be 
combined tcxtually without having to be modified. For example, Tempest is not particularly useful for the 
construction of programs. On die other hand, Tempest can be very useful for document preparation. 

The scenario in [Sterpe 85] shows Tempest being used to constaict a document file which is to be 
processed by a text formatting program. This is an application which fits together particularly well with 
Tempest’s strengths and weaknesses. In die scenario, Tempest is used to build a document file out of 
templates and other chunks of text. The text formatter takes care of fitting die chunks of text together 
aesthetically. 

An interesting feature of Tempest is that it goes beyond KBBmacs in several ways. In particular, it 
provides improved facilities for dealing with textual editing, specifying structure, and flexible viewing of the 
text being edited. 
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Unlike KBKmacs, Tempest is able to maintain its record of the structure of the text being edited even after 
arbitrary text-based editing by the user. T his is done by incrementally updating the representation of 
structure as part of every text-based editing request. 

Tempest provides a set of commands which enable the user to impose arbitrary structure on preexisting 
text. In particular, blocks can be gathered together into a hierarchy of groups. A block can be included in 
several different groups. This enables several different viewpoints on the structure of the text to be 
represented at once. 

KBKmacs provides two commands which support flexible viewing of the text being edited. The first 
command displays an outline showing die structure of die text being edited. (This is in many ways similar to 
the KBKmacs command "Comment".) The second command constructs a special buffer which displays a 
single group from the text. Typically, diis group will be a non-contiguous collection of blocks in the text. An 
interesting aspect of diis command is drat any editing done in the special display buffer carries over to die 
main text. 

Efficient Computation With Scries 

An interesting application of one of the ideas behind KBEmacs is the programming language extension 
described in [Waters 83a] in terms of Lisp and in [Waters 84a] in terms of Ada. This extension is inspired by 
the way loops arc represented in the plan formalism. The extension makes it possible to express computations 
as compositions of functions on series of values and uses some of the same algoridims which are used by the 
coder module of KBKmacs in order to compile the computations into efficient iterative loops. 

An improved version of this language extension is currently under development. The improved version is 
supported by a special binding macro S: LET *. The code below shows how S: LET* could be used to 
implement the program ME AN-AND-DEV I AT I ON which was used as an example in Chapter II. 

(DEFUN MEAN-AND-DEVIATION (TIMINGS) 

(S:LET* ((TIMING (ENUM-LIST TIMINGS)) 

(COUNT (ACC-COUNT TIMING)) 

(MEAN (// (ACC-SUM TIMING) COUNT))) 

(LIST MEAN (- (// (ACC-SUM ( A TIMING 2)) COUNT) ( A MEAN 2)))) 

Series functions such as ENUM-LIST, ACC-COUNT, and ACC-SUM generate and consume series of values. 
ENUM-LIST enumerates a list, generating a series of the elements in the list. ACC-COUNT accumulates a count 
of the number of values in a series. ACC-SUM accumulates a sum of the numbers in a series. A library of 
standard series functions is provided along with mechanisms for defining additional ones. 

The macro S: LET * is exactly the same as the macro LET * except that it supports the binding of variables 
to series of values. For example, the variable TIMING contains the series of elements in the list TIMINGS. 

When a non-series function is applied to a series of values, then it is automatically applied to each element 
in die scries creating a new series. For example, the expression ( A TIMING 2 ) creates a scries of die squares 
of the numbers in the series TIMING. 

The macro S : LET* makes it possible to state a variety of algorithms in a compact functional style. 
However, these algorithms could be represented in essentially the same way by using functions which operate 
on lists of values. The key contribution of S: LET * is that it makes it possible to state a variety of algorithms in 
a compact functional style without suffering a reduction in efficiency in comparison with iterative loops. 

Psychological Validation 

Several researchers outside of the PA project have been able to make use of some of the ideas in 
KBKmacs. One example of this is the work done by Soloway. In a number of experiments Soloway has 
investigated how programmers think about programs. 



Applications of the Current Tcchonology 


199 


Soloway has been able to show that, in many situations, the kinds of cliches used by KBFmacs do in fact 
correspond to the way programmers think. For example, one set of experiments [Soloway 84] shows that 
programmers use algorithmic fragments similar to the loop cliches used by KBEmacs when thinking about 
loops. 

An interesting application of this research is that it makes recommendations about what language features 
arc helpful to programmers. In particular, it suggests that language features arc helpful when they can easily 
express die cliches used by programmers and unhelpful when they make it difficult to express these cliches. 
For example, [Soloway 84] presents experiments which show that languages which require all loops to be 
written in terms of DO WHILE arc unsatisfactory because they make it difficult to state many common cliches 
and therefore lead to unnecessary bugs. 

Assisting Novice Programmers 

Both Soloway [Soloway 83] and Kisenstadt [Laubsch 81] have used the concepts of plans and cliches in 
order to implement systems which can assist novice programmers. Their systems inspect programs written by 
novice programmers, attempting to determine what bugs exist in the programs and give advice on how these 
bugs might be fixed. 

Both systems are designed to be used in a tutorial setting where the exact program to be written is known 
in advance. The systems depend on having a detailed description of exactly how the correct program is 
supposed to work and descriptions of errors which novice programmers commonly make. These descriptions 
are created manually. 

Student programs are matched against the description of the ideal program and any differences detected 
are reported as bugs. Aspects of the plan formalism and symbolic evaluation are used to create 
quasi-canonical summaries of both the ideal program and the student programs in order to reduce the 
incidence of false mismatches. 

The Intelligent Program Editor 

Another application of PA ideas outside of the PA project is the Intelligent Program Editor (IPE) currently 
being developed by Shapiro [Shapiro 83]. A primary motivation behind IPE is the observation that 
comprehending what a given program does is the hardest part of program modification. The parts of IPE 
which have been implemented so far address this problem by assisting a programmer to locate relevant 
portions of a program. 

In addition to program text, IPE maintains a data base of information about the program called the 
extended program model. Among other things, this data base contains plan-iikc information about the logical 
structure of the program and about die cliches which are used in the program. 'Phis and other information is 
derived by various program analysis tools. 

As of [Shapiro 83], the principal component of IPE is a navigation tool which helps a programmer locate 
portions of a program based on semantic criteria. Using this tool a programmer can interactively zero in on 
the portion of a program he wishes to see. When doing this he can refer both to semantic information in the 
extended program model and to syntactic features of the program. For example, the programmer might ask 
to see any summation loops involving the variable TEST-SCORES. IPE would then highlight any loops which 
semantically corresponded to summation and syntactically referenced the variable TEST-SCORES. 



200 


Attacking Other Parts of the Programming Process 

A final area of activity in the PA project centers around expanding the scope of the PA beyond program 
implementation. Several pilot studies have already been done investigating how the ideas behind the PA can 
be applied to other phases of the programming process. 

Testing 

Chapman [Chapman 82] built a tool (the Testing Assistant) which assists with program testing. This tool 
keeps track of the test cases which are used in conjunction with a collection of programs and automatically 
reruns an appropriate subset of these tests whenever any of the programs is modified. 

Preparatory to using the T esting Assistant, the programmer divides the collection of programs up into 
groups. He then specifics which features of the collection of programs are supported by each group. 

Once the groups have been specified the programmer proceeds to test the programs by interactively 
running various test cases. Bach time the programmer runs a test case, he specifics which features of the 
collection of programs are being tested. The T esting Assistant stores the test case in a data base indexed by 
the features it tests. 

Whenever the programmer modifies a program (e.g., in order to fix a bug which is discovered) the Testing 
Assistant automatically renins all relevant test cases. A test case is deemed relevant if it tests any of the 
features which are supported by the group which contains the modified program. (By greatly reducing the 
number of test cases which have to be run, the relevance test significantly increases the speed of the Testing 
Assistant.) 

An interesting problem arises when a program is modified in such a way that the test cases which directly 
call it can no longer be run — for example when tire number of arguments to the program are changed. The 
Testing Assistant is able to partly overcome this problem by applying a number of heuristics which specify 
how to change a test case when a procedure is changed. 

As currently constituted, tine Testing Assistant is designed to fit in with tine kind of highly interactive 
testing which is typically done in an environment like the Lisp Machine. However, the basic concept could 
equally well be applied in a less interactive situation. For example, suppose that a set of test cases were 
developed by a separate testing organization rather than by the programmer. It would still be beneficial to 
enter them in a data base like the one supported by the Testing Assistant in order to facilitate continued 
testing when programs arc modified. 

Debugging 

Shapiro [Shapiro 81] demonstrated a tool (called Sniffer) which helps a programmer to debug a program. 
This tool supports two basic capabilities. First, the Lisp evaluator is modified so that Sniffer can keep track of 
all of the side-effects which arc performed by a program which is being executed. 'This makes it possible for 
Sniffer to reverse the execution of a program and return to any previous execution state, no matter what 
operations the program has performed. Second, Sniffer has a knowledge base of descriptions of particular 
kinds of bugs which arc likely to occur. When an error is detected, Sniffer uses this knowledge in order to try 
to identify the bug which caused the error. 

T he most interesting part of Sniffer is the way it identifies bugs. The process begins when an error is 
detected. An error is detected cither when the Lisp interpreter goes into an error state (e.g., when division by 
zero is attempted) or when the programmer notices that an incorrect output has been produced. The error 
detection step culminates in the production of a simple description of the manifestation of the error. 

Hach bug description in Sniffer's knowledge base contains information about three things: the error 
manifestations associated with the bug, the sequence of execution steps which occur when the bug happens, 
and a plan for the specific buggy algorithm. Sniffer uses the analyzer module of KBH in order to create plans 
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for tire program being executed and then begins to look for bugs. It is guided in its search by looking at how 
the error was manifested, and at what evaluation steps actually occurred. 

If Sniffer succeeds in finding a part of the program which matches one of the bugs it knows about and 
which could have led to the error which was detected, then it prints out a bug report. This report describes 
the bug and suggests how it might be fixed. 

Sniffer is merely a demonstration system. In particular, it only knows about a couple of bugs. However, it 
shows the potential leverage which a knowledge-based approach has on the debugging task. 

Documentation 

Zelinka [Zclinka 83] proposed a tool which can assist with the task of maintaining documentation. The 
focus of this tool is understanding how changes in a program are related to changes in documentation. 

There arc two major underpinnings of the tool. First, each part of the documentation is linked to the parts 
of the program which arc relevant to it. Second, there is a taxonomy of various types of ways in which 
programs can be modified. This taxonomy is important because particular types of program modifications 
suggest particular ways in which the documentation has to be modified. For example, if a modification 
merely fixes a bug, then die documentation should not have to be modified at all. 

Every time die program is modified, the tool looks at the links between die modified parts of die program 
and the documentation and. based on the type of modification, directs the programmer’s attention to the parts 
of die documentation which should be changed. The goal is to reduce die probability that die programmer 
will overlook parts of die documentation which are relevant to his modification. 

The tool is not capable of modifying die documentation itself because it has no understanding of cither die 
documentation or the program. The obvious next step would be to give die tool some understanding of the 
documentation. However, in order to avoid having to understand free form English, this would require 
recasting the documentation into a simplified pseudo-English form. 

Rapid Prototyping 

[Rich & Waters 82] speculate on how die PA could assist with rapid prototyping. The basic idea here is to 
build up a program very quickly by using cliches which omit a lot of details (such as error checking) and then 
substitute more complete cliches when it becomes time to construct a full program. 

In order to support this kind of rapid prototyping, die cliches in die cliche library are arranged into 
clusters. Each cluster is centered around a simplified cliche which performs a given algoridim but which 
makes lots of assumptions and does no error checking. Various combinations of efficiency, robustness, 
generality, and error checking features arc supported by odicr cliches in the cluster. 

A program is initially constructed by using only the simplified cliches. This yields a simplified program 
which can be tested in simple situations. Once experimentation at the simplified level has been completed, 
die prototype program is converted into a full implementation. 

Conversion is performed scmi-automatically. The programmer selects what features he wants the full 
program to have. The PA dicn replaces each simplified cliche with another cliche from the same cluster 
which has die required features. Often, using one of the replacement cliches forces die programmer to supply 
additional information, because it brings up design issues which did not have to be faced in the simplified 
program. This is why the conversion process is only ^///'-automatic. 



202 


Future Directions 


Translation 

A particularly interesting pilot study involved program translation. Faust [Faust 81] built a demonstration 
system which is able to translate Cobol programs into Hibol [Ruth 81] programs. 

The translation task performed by this system is particularly difficult for two reasons. First, the system 
takes great pains to produce output which is not merely correct, but aesthetic. Second, the translation task is 
rendered inherently difficult by the fact that Hibol is a much higher level language titan Cobol. Hibol is a 
very high level business data processing language. It is a non-procedural single assignment language which 
uses direct operations on scries of values (called Jlows) in lieu of loops. 

The Cobol to Hibol translator operates as follows. A source Cobol program is converted into a plan by the 
analyzer module of tine KBH. As the first step of this, die program is parsed by a Cobol parser which was 
implemented by Glen Burke. 

The plan is then analyzed in order to obtain summary information describing what computation the 
program is performing. This analysis is done in two ways. Recognition is applied in order to identify what 
kinds of looping fragments are present in the program. A symbolic evaluation process is used in order to 
construct algebraic equations which describe the net effect of the Cobol program. 

The body of a Hibol program is then produced based on the algebraic equations constructed from the 
plan. As part of this, an algebraic simplification module is used to improve the readability of the Hibol 
program. The data declaration part of the Hibol program is constructed from the data declaration part of the 
Cobol program by means of a more or less separate process. This process is relatively straightforward since 
data declarations in the two languages arc relatively similar in form. 

As implemented, the Cobol to Hibol translator demonstrates quite satisfactory results. However, the class 
of programs which can be successfully translated is severely limited by the fact that the translator does not 
contain a generalized recognition facility which can support plan analysis. Rather, specific procedures must 
be written to support analysis. 

Once a general cliche recognizer (such as the one being constructed as part of the next demonstration 
system) is available, a more general purpose and powerful translation method will be possible. As shown in 
Figure 33, this method proceeds in four steps. 

abstract cliche plan 
\ 

ABSTRACTION / \ SPECIALIZATION 

/ * 

Cobol cliche plan Hibol cl iche plan 

'IS \ 

ANALYSIS/RECOGNITION / \ CODING 

/ -il 

Cobol text Hibol text 

Figure 33: Translation based on cliches. 

First, an analyzer is used to convert a Cobol program into a plan and recognition is used to determine what 
Cobol cliches could have been used to build the program. Second, abstraction is applied to restate these 
Cobol cliches in terms of abstract cliches which are neutral between the languages Cobol and Hibol. Third, 
specialization selects Hibol cliches which correspond to the abstract cliches derived from the Cobol program. 
Both of the last two steps arc relatively straightforward because they arc driven by specialization links 
between cliches recorded in a cliche library. Fourth, a coder module is used to create aesthetic Hibol code 
based on the Hibol cliche plan. 
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Compilation 

Translation based on cliches as described above could be used to translate between any two languages. 
Duffey [Duffey 80] proposed a compiler (called Cobbler) which uses this basic method in order to compile 
Pascal programs into PDP-11 machine code. 

At first glance, the problems associated with compiling Pascal do not seem to be very similar to the 
problems associated with translating Cobol to Hibol. After all, the goal of the former is efficiency of low level 
output while the goal of the latter is readability of high level output. 

However, the two problems really have a great deal in common. Stated generally, the problem is that the 
criteria which govern the source are very different from die criteria which govern die output. In order to have 
die freedom to do a good job of satisfying the output criteria, die input must be restated in a way which frees 
it from the constraints of the input criteria. 

For example, Pascal is heavily biased toward loops which count up. (The special forms of die looping 
constructs do not support counting down.) In contrast, the most efficient PDP-11 looping instructions only 
support counting down. As a result of diis mismatch, typical Pascal compilers essentially never use the most 
efficient PDP-11 looping instructions in the code diey produce. 

r I’he first thing Cobbler does when presented with a Pascal loop is attempt to determine whether the loop 
counts up because the algorithm requires it to or merely because the algorithm docs not require diat the loop 
count down. Cobbler actually goes way beyond this. It abstracts away from die Pascal program and 
determines the net effect of the loops in die program on various vectors and arrays. It does this so that code 
generation will not be be constrained by die exact placement of loops in die source program any more dian by 
whether die loops count up or down. 

Once an abstract statement of the algorithm being performed is determined. Cobbler proceeds to 
respccializc the algoridim, making heavy use of the efficiency features of the PDP-11 instaicdon set. Cobbler 
produces better code dian other compilers because it is able to take a very global view of die algorithm being 
compiled. 

Requirements Analysis 

Currently, work has begun on the design of a Requirements Analyst’s Apprentice (RAAP). This research 
(by Howard Rcubenstein) is only in its early formative stages. However, die basic outline of the system seems 
clear. 

RAAP will have a data base which describes die requirement being worked on. The requirement will be 
represented either by a plan-like representation or by a more semantic network-like representation. 

RAAP will be able to assist a requirements analyst in several ways. It will be able to receive information in 
a relatively unordcrcd way and assemble it into a requirement. It will be able to detect some kinds of 
inconsistencies and incompleteness in the evolving requirement. It will be able to create a document 
describing the requirement as a whole, and various summaries of parts of die requirement. 

The heart of RAAP will be a library of cliches in die domain of requirements. These cliches will be the 
medium of communication between RAAP and a requirements analyst. It is expected that a typical 
requirement constructed using RAAP will be composed 90 percent of cliches and 10 percent of new concepts 
which have to be described to RAAP in detail. The great importance of cliches can be seen from the fact that, 
if constructing requirements is anything like constructing programs, the largest part of die time required to 
construct a requirement will be taken up describing the 10 percent of the requirement which is not cliched. 
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Tire Programmer's Apprentice 

The long term goal of the PA project is to produce a true Programmer's Apprentice -* a system which can 
assist a programmer in all phases of die programming task in much die same way that a human progranuner 
can. All of die modules described above would be required by such a system, and many more besides. In 
particular, after requirements, the next problemwhich needs to be tackled is design. This is needed in order 
to bridge the gap between requirements and implementarion. Once support for requirements and design is 

a whole. 
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A - Cliche Library 

This appendix presents die complete contents of the Lisp and Ada cliche libraries currently defined as part 
of KBKmacs. As discussed in Chapter IV, dtese libraries arc much too small to be usable as true prototypes. 
However, Uicy give a flavor for the kinds of cliches which can be defined. 

In the interest of brevity, the discussion below assumes that the reader has read die section of Chapter V 
which discusses cliche definitions. For die most part, cliches arc presented without comment. Only 
particularly interesting aspects of the cliches are discussed. 

Lisp Cliches 

Around a dtird of the cliches in the l.isp cliche library arc used in the scenario in Chapter II. These cliches 
arc discussed in detail in that chapter and arc only briefly described below. The remaining Lisp cliches are 
presented here for the first time. The scenario in [Waters 82a] shows many of these latter cliches being used. 

The cliches squaring, absolute-value, simple-conditional, and equality-within-cpsilon arc used as simple 
examples of cliches in Chapters II & V. They are all straightforward non-looping cliches. 

(DEFINE-CLICHE SQUARING 

(PRIMARY-ROLES (NUMBER) 

DESCRIBED-ROLES (NUMBER) 

COMMENT "computes the square of {the number}") 

( A {the input number} 2)) 

(DEFINE-CLICHE ABSOLUTE-VALUE 
(PRIMARY-ROLES NUMBER 
DESCRIBED-ROLES NUMBER 

COMMENT "computes the absolute value of {number}") 

(LET ((X {input number})) 

(COND ((MINUSP X) (- x)) (T X)))) 

(DEFINE-CLICHE SIMPLE-CONDITIONAL 
(PRIMARY-ROLES TEST ACTION 
DESCRIBED-ROLES TEST ACTION 
COMMENT "computes {action} if {test} is true") 

(IF {test} {action})) 

(DEFINE-CLICHE EQUALITY-WITHIN-EPSILON 
(PRIMARY-ROLES (X Y) 

DESCRIBED-ROLES (X Y) 

COMMENT "determines whether {the x} and {the y} 
differ by less than {the epsilon}" 

CONSTRAINTS ((DEFAULT {the epsilon} 0.00001))) 

(< (ABS (- {the input x} {the input y})) {the epsilon})) 

The Lisp cliche library contains three addidonal simple straight-line cliches. The cliche average computes 
die average of two input numbers. 

(DEFINE-CLICHE AVERAGE 
(PRIMARY-ROLES (X Y) 

DESCRIBED-ROLES (X Y) 

COMMENT "computes the average of {the x} and {the y}") 

(// (+ {the input x} {the input y}) 2.0)) 
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The cliche splicc-in splices an element into a list by side-effect. The cliche splice-out performs the reverse 
operation, splicing an element out of a list by side-effect. Note that both cliches require as an input a pointer 
to die list cell before the point where an element is to be inserted. 

(DEFINE-CLICHE SPLICE-IN 

(PRIMARY-ROLES (POSITION NEW-ELEMENT) 

DESCRIBED-ROLES (POSITION NEW-ELEMENT) 

COMMENT "splices (the new-element} into a list after {the position}") 

(LET* ((PREVIOUS-SUBLIST {the input position})) 

(RPLACD PREVIOUS-SUBLIST 

(CONS {the input new-element} (CDR PREVIOUS-SUBLIST))) 

NIL)) 

(DEFINE-CLICHE SPLICE-OUT 

(PRIMARY-ROLES (POSITION) 

DESCRIBED-ROLES (POSITION) 

COMMENT "splices an element out of a list after {the position}") 

(LET* ((PREVIOUS-SUBLIST {the input position})) 

(RPLACD PREVIOUS-SUBLIST (CDDR PREVIOUS-SUBLIST)) 

NIL)) 

Most of the cliches in the Lisp cliche library arc loop fragments. There are three basic kinds of loop 
fragments enumerators, maps, and accumulators. Enumerators create series of values. Maps compute one 
series of values from another. Accumulators consume series of values. 

The cliche enumeration is a generalized enumerator. It has as empty roles the four roles expected of any 
enumerator — the input structure, the empty-test, the clement-accessor, and the step. (These roles are 
discussed in die beginning of Chapter II.) The cliche enumeration specifies the way the roles of an 
enumerator interact without specifying any particular kind of enumeration. 

(DEFINE-CLICHE ENUMERATION 

(PRIMARY-ROLES (STRUCTURE) 

DESCRIBED-ROLES (STRUCTURE ELEMENT-ACCESSOR EMPTY-TEST STEP) 

COMMENT "enumerates the elements of {the structure}") 

(LET* ((DATA {the input structure})) 

(LOOP DO 

(IF ({the empty-test} DATA) (RETURN)) 

{({the element-accessor} DATA), the output element} 

(SETQ DATA ({the step} DATA))))) 

The next three cliches are examples of particular enumerators. They are each instances of the cliche 
enumeration. As discussed in die beginning of Chapter II, the cliche list-enumeration enumerates the 
elements of a list. 

(DEFINE-CLICHE LIST-ENUMERATION 
(PRIMARY-ROLES (LIST) 

DESCRIBED-ROLES (LIST) 

COMMENT "enumerates the elements of {the list}”) 

(LET* ((LIST {the input list})) 

(LOOP DO 

(IF ({NULL, the empty-test} LIST) (RETURN)) 

{({CAR, the element-accessor} LIST), the output element} 

(SETQ LIST ({CDR, the step} LIST))))) 
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The cliche sublist-enumcration enumerates tine successive sublists of a list. It is almost identical to the 
cliche list-enumeration. Only the clement-accessor is different. In the cliche list-enumeration the 
elcmcnt-acccssor is the function CAR, whereas in the cliche sublist-enumcration it is the identity function. 

(DEFINE-CLICHE SUBLIST-ENUMERATION 
(PRIMARY-ROLES (LIST) 

DESCRIBED-ROLES (LIST) 

COMMENT "enumerates the sublists of {the list}") 

(LET* ((LIST {the input list})) 

(LOOP DO 

(IF ({NULL, the empty-test} LIST) (RETURN)) 

{{LIST, the element-accessor}, the output sublist} 

(SETQ LIST ({CDR, the step} LIST))))) 

The cliche vector-enumeration enumerates the elements of a vector. This cliche is interesting in that it 
requires two variables, VECTOR and I, in order to represent the state of the enumerator. 

(DEFINE-CLICHE VECTOR-ENUMERATION 
(PRIMARY-ROLES (VECTOR) 

DESCRIBED-ROLES (VECTOR) 

COMMENT "enumerates the elements of {the vector}") 

(LET* ((I 0) 

(VECTOR {the input vector}) 

(SIZE (ARRAY-ACTIVE-LENGTH VECTOR))) 

(LOOP DO 

(IF {(NOT (< I SIZE)), the empty-test} (RETURN)) 

{({AREF, the element-accessor} VECTOR I), the output element} 

(SETQ I ({1+, the step} I))))) 

The generalized cliche generation is identical to the cliche enumeration except that it does not have an 
empty test. It describes a kind of loop fragment, a generator, which is a special form of enumerator. A 
generator generates an unbounded scries of values, and is not capable of causing a loop to terminate. 
T ypically, generators arc combined with enumerators which control their termination. 

(DEFINE-CLICHE GENERATION 

(PRIMARY-ROLES (STRUCTURE) 

DESCRIBED-ROLES (STRUCTURE ELEMENT-ACCESSOR STEP) 

COMMENT "generates the elements of {the structure}") 

(LET* ((DATA {the input structure})) 

(LOOP DO 

{({the element-accessor} DATA), the output element} 

(SETQ DATA ({the step} DATA))))) 

The cliche list-generation is identical to the cliche list-enumeration except that it does not have an 
empty-test. 

(DEFINE-CLICHE LIST-GENERATION 
(PRIMARY-ROLES (LIST) 

DESCRIBED-ROLES (LIST) 

COMMENT "generates the elements of {the list}") 

(LET* ((LIST {the input list})) 

(LOOP DO 

{({CAR, the element-accessor} LIST), the output element} 

(SETQ LIST ({CDR, the step} LIST))))) 
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The second basic kind of loop fragment is a map. The basic structure of these fragments is captured in the 
cliche map. A map applies some function to each element of an input series of values in order to create an 
output series. 

(DEFINE-CLICHE MAP 

(PRIMARY-ROLES (ITEM FUNCTION) 

DESCRIBED-ROLES (ITEM FUNCTION) 

COMMENT "maps (the function} over {the item}") 

(LOOP DO 

{({the function} {the input item}), the output result})) 

The cliche previous-value is an example of specific map fragment. It takes in a series of values and returns 
a series which contains die same values delayed by one time unit. The cliche takes a special input which 
specifics what value to use as die first value of the output series. It is interesting to note that the function of 
the cliche previous-value docs not actually perform any computation. It is composed solely of data flow 
which provides the delay. 

(DEFINE-CLICHE PREVIOUS-VALUE 

(PRIMARY-ROLES (ITEM ITEM-BEFORE-FIRST-ITEM) 

DESCRIBED-ROLES (ITEM ITEM-BEFORE-FIRST-ITEM) 

COMMENT "keeps track of the previous value of {the item}") 

(LET* ((PREVIOUS {the item-before-first-item})) 

(LOOP DO 

{PREVIOUS, the output previous} 

{(SETQ PREVIOUS {the input item}), the function}))) 

The cliche trailing-pointcr-iist-cnumcration is a specialized enumerator which is a combination of the 
cliches list-enumeration and previous-value. It is included in the library because it is a relatively common 
operation when splicing diings in and out of lists. An example of this will be shown below. 

(DEFINE-CLICHE TRAILING-POINTER-LIST-ENUMERATION 
(PRIMARY-ROLES (LIST) 

DESCRIBED-ROLES (LIST) 

COMMENT "enumerates the elements of the tail of {the list} 
maintaining a trailing pointer") 

(LET* ((PREVIOUS-SUBLIST {the input list}) 

(LIST (CDR PREVIOUS-SUBLIST))) 

(LOOP DO 

(IF (NULL LIST) (RETURN PREVIOUS-SUBLIST)) 

{(CAR LIST), the output element} 

(SETQ PREVIOUS-SUBLIST LIST) 

(SETQ LIST (CDR LIST))))) 
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The cliche group-detector (discussed in Chapter II) is a more complex example of a map. It detects where 
groups begin in a series of values. Note that the cliche uses the cliche previous-value in order to keep track of 
the previous value of the input series of values. 

(DEFINE-CLICHE GROUP-DETECTOR 
(PRIMARY-ROLES (ITEM TEST) 

DESCRIBED-ROLES (ITEM TEST) 

COMMENT "locates the beginning of each group in {the item}") 

(LET* ((DATUM) 

(UNIQUE-VALUE (NCONS NIL)) 

(PREVIOUS UNIQUE-VALUE)) 

(LOOP DO 
{(PROGN 

(SETQ DATUM {the input item}) 

{(OR (EQ PREVIOUS UNIQUE-VALUE) ({the test} PREVIOUS DATUM)), 
the output flag} 

(SETQ PREVIOUS DATUM)), the function}))) 

The cliche selection is a special kind of map fragment. It takes in a scries of values and applies a 
selection-test to each one. It creates an output scries which contains only die values for which the 
selection-test returns non-NIL. The cliche selection is different from the other maps above in that die output 
series is in general shorter than the input scries. An example of the use of die cliche selection will be given 
below. 

(DEFINE-CLICHE SELECTION 

(PRIMARY-ROLES (ITEM SELECTION-TEST) 

DESCRIBED-ROLES (ITEM SELECTION-TEST) 

COMMENT "selects a subseries of {the item}") 

(LET* (DATUM) 

(LOOP DO 

(SETQ DATUM {the input item}) 

(IF ({the selection-test} DATUM) 

{DATUM, the output selected-item})))) 

The third and final kind of loop fragment is an accumulator. The basic features of all accumulators are 
specified in the generalized cliche accumulation. An accumulator takes the values in a scries and combines 
them together into a single value. 'This is done by using a function (the accumulator) to combine each 
successive value into an accumulating result 

The result is initialized to the zero of the accumulator function. This yields two nice features. First, if 
there is only one value in the input series dicn this value is returned as the accumulated result. Second, if 
die re are no values in the input scries dicn the zero value itself is returned as the result 

(DEFINE-CLICHE ACCUMULATION 
(PRIMARY-ROLES (ITEM) 

DESCRIBED-ROLES (ITEM ACCUMULATOR ZERO) 

COMMENT "accumulates {the item}") 

(LET* ((RESULT {the zero})) 

(LOOP DO 

(SETQ RESULT ({the accumulator} RESULT {the input item}))) 

RESULT)) 
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The cliche sum discussed in Chapter II is an example of a specific accumulator. It adds up the values in a 
series. 

(DEFINE-CLICHE SUM 

(PRIMARY-ROLES (NUMBER) 

DESCRIBED-ROLES (NUMBER) 

COMMENT "accumulates the sum of {the number}") 

(LET* {(SUM {0, the zero})) 

(LOOP DO 

(SETQ SUM ({+, the accumulator} SUM {the input number}))) 

SUM)) 

The cliche product is very similar to the cliche sum. It multiplies all of the values in a series together. 
Note that the number 1 is the zero element of the function *. 

(DEFINE-CLICHE PRODUCT 

(PRIMARY-ROLES (NUMBER) 

DESCRIBED-ROLES (NUMBER) 

COMMENT "accumulates the product of {the number}") 

(LET* ((PRODUCT {l, the zero})) 

(LOOP DO 

(SETQ PRODUCT ({*, the accumulator} PRODUCT {the input number}))) 

PRODUCT)) 

The cliche count counts the number of values in a series. The most interesting feature of the cliche count 
is that, although it depends on the existence of the input values, it docs not actually use them in its 
computation. 

(DEFINE-CLICHE COUNT 

(PRIMARY-ROLES (ITEM) 

DESCRIBED-ROLES (ITEM) 

COMMENT "accumulates a count of {the item}") 

(LET* ((COUNT {0, the zero})) 

(LOOP DO 

(SETQ COUNT ({+, the accumulator} COUNT {1. depending on the input item}))) 
COUNT)) 

As discussed in Chapter V there are a number of features of the plan formalism which are specifically 
included solely in order to support cliches which depend on values without actually using them. The 
importance of this can be seen in the following program fragment which is "a count of a selection of a 
1ist-enumeration of X". 

(LET* ((COUNT 0) 

ELEMENT 

(LIST {the input list})) 

(LOOP DO 

(IF (NULL LIST) (RETURN)) 

(SETQ ELEMENT (CAR LIST)) 

(IF ({the selection-test} ELEMENT) (SETQ COUNT (+ COUNT 1))) 

(SETQ LIST (CDR LIST))) 

COUNT) 

In the example above, the counting is nested inside of the selection conditional because KBEmacs 
understands that the count depends on the output of the selection. If it were not for this special knowledge, 
the counting would be placed outside of the selection conditional because there is no data flow from the 
selection to the count. 
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1'hc next cliche, sequential-search, is a common algorithm used in many programs. It is used as an 
example in Chapter I. Rather than being a loop fragment, the cliche sequential-search specifics an entire 
loop. The cliche has three roles. The enumerator enumerates the elements of a structure. The search-test 
tests each element in order to see if it is the element desired. If an element which passes the search-test is 
found then an action is performed on it. 

(DEFINE-CLICHE SEQUENTIAL-SEARCH 
(PRIMARY-ROLES (ENUMERATOR) 

DESCRIBED-ROLES (ENUMERATOR SEARCH-TEST ACTION) 

COMMENT "sequentially searches {the input structure} 

looking for an element satisfying {the search-test}") 

(LET* ((DATA {the input structure of the enumerator})) 

(LOOP DO 

(IF ({the empty-test of the enumerator} DATA) (RETURN NIL)) 

(IF ({the search-test} DATA) (RETURN {the action})) 

(SETQ DATA ({the step of the enumerator} DATA))))) 

As an example of using the cliche sequential-search, consider the following set of commands. The 
commands also use the cliches trailing-pointcr-list-cnumeration and splice-out. ( This set of commands is very 
similar to an example discussed in [Waters 82a].) 

Define a sequential-search program DELETE-SYMBOL with a parameter SYMBOL. 

Fill the enumerator with 

a trail ing-pointer-1ist-enumeration of (HASH-SYMBOL SYMBOL). 

Fill the search-test with (EQ {a use of the element} SYMBOL). 

Fill the action with a splice-out of PREVIOUS-SUBLIST. 

The code which results from the commands is shown below. The program DELETE-SYMBOL deletes a 
symbol from a hash table by side-effect. This is done by hashing die symbol in order to determine the bucket 
which contains it and then searching this bucket in order to find an instance of the symbol if any. The cliche 
trailing-pointcr-list enumeration is used so that a pointer to die previous list cell will be available for use by 
die cliche splice-out. 

(DEFUN DELETE-SYMBOL (SYMBOL) 

(LET* ((PREVIOUS-SUBLIST (HASH-SYMBOL SYMBOL)) 

(LIST (CDR PREVIOUS-SUBLIST))) 

(LOOP DO 

(IF (NULL LIST) (RETURN NIL)) 

(WHEN (EQ (CAR LIST) SYMBOL) 

(RPLACD PREVIOUS-SUBLIST (CDDR PREVIOUS-SUBLIST)) 

(RETURN NIL)) 

(SETQ PREVIOUS-SUBLIST LIST) 

(SETQ LIST (CDR LIST))))) 
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The cliche successive-approximation specifics a particular method of mathematical computation. It uses 
an improvement-step in order to iteratively improve an approximation until a criterion is satisfied. The process 
begins with the choice of an initial-approximation. 

(DEFINE-CLICHE SUCCESSIVE-APPROXIMATION 
(PRIMARY-ROLES (INITIAL-APPROXIMATION) 

DESCRIBED-ROLES (INITIAL-APPROXIMATION CRITERION IMPROVEMENT-STEP) 

COMMENT "iteratively improves an approximation until (the criterion} is 
satisfied") 

(LET* ((APPROXIMATION {the input initial-approximation})) 

(LOOP DO 

(IF ({the criterion} APPROXIMATION) (RETURN APPROXIMATION)) 

(SETQ APPROXIMATION ({the improvement-step} APPROXIMATION))))) 

As an example of using the cliche successive-approximation, consider the following set of commands. r lhe 
commands also use the cliches average and equality-within-cpsilon. (This set of commands is very similar to 
an example discussed in [Waters 82a].) 

Define a successive-approximation program SQUARE-ROOT with a parameter NUM. 

Fill the initial-approximation with 1. 

Fill the improvement-step with 
an average of APPROXIMATION and (// NUM APPROXIMATION). 

Fill the criterion with 

an equality-within-epsilon of (* APPROXIMATION APPROXIMATION) and NUM. 

The code which results from the commands is shown below. The program SQUARE-ROOT computes the 
square root of a number by using what is essentially a binary search. 

(DEFUN SQUARE-ROOT (NUM) 

(LET* ((APPROXIMATION l)) 

(LOOP DO 

(IF (< (ABS (- (* APPROXIMATION APPROXIMATION) NUM)) 0.00001) 

(RETURN APPROXIMATION)) 

(SETQ APPROXIMATION (// (+ APPROXIMATION (// NUM APPROXIMATION)) 2.0))))) 
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The final three cliches in the Lisp cliche library are the cliches simple-report, print-out, and 
tabularizcd-print-out. This suite of cliches is discussed in detail in Chapter 11 and used to construct the 
program REPORT-TIMINGS. 

(DEFINE-CLICHE SIMPLE-REPORT 

(PRIMARY-ROLES (ENUMERATOR PRINT-ITEM SUMMARY) 

DESCRIBED-ROLES (FILE-NAME TITLE ENUMERATOR 

COLUMN-HEADINGS PRINT-ITEM SUMMARY) 

COMMENT "prints a report of (the input structure of the enumerator}" 
CONSTRAINTS 

((DEFAULT (the file-name} "report.txt") 

(DERIVED (the line-limit} 

(- 65 

(SIZE-IN-LINES {the print-item}) 

(SIZE-IN-LINES {the summary}))))) 

(WITH-OPEN-FILE (REPORT {the file-name} ’:OUT) 

(LET* ((DATE (TIME:PRINT-CURRENT-TIME NIL)) 

(LINE 66) 

(PAGE 0) 

(TITLE {the title}) 

(DATA {the input structure of the enumerator})) 

(FORMAT REPORT "~5%~66: <~A~>~2%~66: <~A~>~%" TITLE DATE) 

(LOOP DO 

(IF ({the empty-test of the enumerator} DATA) (RETURN)) 

(WHEN (> LINE {the line-limit}) 

(SETQ PAGE (+ PAGE 1)) 

(FORMAT REPORT "-/|~%Page:~3D~50: <~A~>~17A~2%” PAGE TITLE DATE) 

(SETQ LINE 3) 

({the column-headings} {REPORT, modified} {LINE, modified})) 

({the print-item} {REPORT, modified} 

{LINE, modified} 

({the element-accessor of the enumerator} DATA)) 

(SETQ DATA ({the step of the enumerator} DATA))) 

({the summary} {REPORT, modified})))) 

(DEFINE-CLICHE PRINT-OUT 

(PRIMARY-ROLES (FORMAT-STRING ITEM) 

DESCRIBED-ROLES (FORMAT-STRING ITEM) 

COMMENT "prints out {the item}" 

CONSTRAINTS 

((DEFAULT {the format-string} "~%~A") 

(DERIVED {the size-in-lines} (SIZE-IN-LINES {the format-string})))) 

(FORMAT REPORT {the format-string} {the input item}) 

(SETQ LINE (+ LINE {the size-in-lines}))) 

(DEFINE-CLICHE TABULARIZED-PRINT-OUT 
(PRIMARY-ROLES (FORMAT-STRING ITEM) 

DESCRIBED-ROLES (FORMAT-STRING ITEM NUMBER-OF-COLUMNS) 

COMMENT "prints out {the item} in columns" 

CONSTRAINTS 

((DEFAULT {the format-string} "~15A") 

(DERIVED {the maximum-charpos} 

(- 75 (SIZE-IN-CHARACTERS {the format-string}))))) 

(WHEN (> (CHARPOS REPORT) {the maximum-charpos}) 

(FORMAT REPORT "~&") 

(SETQ LINE (+ LINE t))) 

(FORMAT REPORT {the format-string} {the input item})) 
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Ada Cliches 

Kxccpt for the cliche cqnality_within_cpsilon which is used as an example in Chapter V, all of the cliches 
in the Ada cliche library arc used in the scenario in Chapter III and, for the most part, arc discussed in detail 
there. 

The cliche cquality_within_cpsilon is identical to the cliche cquality-within-cpsilon except for the fact that 
it is rendered in Ada syntax. 

cliche EQUALITY_WITHIN_EPSILON is 
primary roles X, Y; 
described roles X. Y, EPSILON; 
comment "determines whether (the x} and {the y} 
differ by less than {the epsilon}"; 
constraints 

DEFAULT({the epsilon}, 0.00001); 
end constraints; 

begin 

return abs({the input x} - {the input y}) < {the epsilon}; 
end EQUALITY_WITHIN_EPSILON; 

The cliche read reads a record from a file. Like all of the Ada cliches which access files, the cliche read 
depends on the existence of a set of conventions (described in the beginning of Chapter III) governing file 
I/O. The cliche is surprisingly complex due both to the verbose nature of Ada I/O procedures and the need 
to properly handle interrupts which can occur during I/O. 

cliche READ is 

primary roles FILE, KEY; 
described roles FILE, KEY; 

comment "reads the record indexed by {the key} from {the file}"; 
constraints 

RENAME("DATA_RECORD", SINGULAR_FORM({the file})); 

DEFAULT({the filename}, CORRESPONDING_FILE_NAME({the file})); 
end constraints; 

DATA_RECORD: {}; 

FILE: {}; 
begin 

FILE := {the file}; 

0PEN( FILE , IN_FILE, {the filename}); 

READ(FILE, DATA_RECORD, {the key}); 

{DATA_RECORD, the output data_record}; 

CLOSE(FILE); 
exception 

when DEVICE..ERROR | END_ERR0R | NAME_ERR0R | STATUS_ERROR => 

CLOSE(FILE); PUT("Data Base Inconsistent"); 
when others => CLOSE(FILE); raise; 
end READ; 
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As discussed in Chapter 111, the cliche prcjoop_computation exists in order to allow a programmer to 
conveniently specify an initialization computation for a loop inside of an expression nested inside the loop. 

cliche PRE_L00P_C0MPUTATI0N is 
primary roles ITEM; 
described roles ITEM; 

comment "makes the value (the item} available inside of a loop"; 
constraints 

RENAME("DATA_VALUE", SUGGEST_VARIABLE_NAME({the item})); 
end constraints; 

DATA_VALUE: {}; 
begin 

DATA_VALUE := (the item}; 

1 oop 

(DATA_VALUE, the output data_value}; 
end loop; 

end PRE_L00P_C0MPUTATI0N; 

The cliche query_uscr_for_key asks the user of a program to supply the key for a record. In addition, it 
checks the key in order to ensure that it is a valid key. This cliche is used both in the program 
UNIT_REPAIR_REP0RT and the program MODEL_DEFECTS_REPORT in Chapter III. 

with TEXT_10; 

use TEXT_10; 

cliche QUERY_USER_FOR_KEY is 
primary roles FILE; 
described roles FILE; 

comment "queries the user for a key to a record in {the file}"; 
constraints 

RENAME!"DATA_RECORD". SINGULAR_FORM({the file})); 

DEFAULT({the filename}, CORRESPONDING_FILE_NAME({the file})); 
end constraints; 

DATA_RECORD: {}; 

DATA_RECORD_KEY: {}; 

FILE: {}; 
begin 

FILE := {the file}; 

0PEN( FILE , IN_FILE, {the filename}); 
loop 
begin 

NEW_LINE; PUT("Enter DATA_RECORD Key: "); GET(DATA_RECORD_KEY); 

READ(FILE , DATA_RECORD, DATA_RECORD_KEY); 
exit; 
exception 

when END_ERR0R => PUT("Invalid DATA_RECORD Key"); NEW_LINE; 
end; 

end loop; 

CLOSE(FILE); 
return DATA_RECORD_KEY; 
exception 

when DEVICE_ERROR | END_ERR0R | NAME_ERROR | STATUS_ERROR => 

CLOSE(FILE); PUT("Data Base Inconsistent"); 
when others => CLOSE(FILE); raise; 
end QUERY_!JSER_FOR_KEY; 
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The cliches chnin_file_definition and kcycd_filc_dcfinition arc both data cliches which specify how to 
define a file of records. The cliche chain_(ilc_defmition is discussed in detail in Chapter 111. The cliche 
keycd_file_dcfinition is very similar. Both cliches rely heavily on generic packages defined in the package 
FUNCTIONS (see Appendix B). 

with FUNCTIONS; 
use FUNCTIONS; 

cliche CHAIN_FILE_DEFINITION is 

primary roles FILE_NAME; 
described roles FILE_NAME; 

comment "defines a file named {the file_name} of chain records"; 
constraints 

RENAME("DATA_RECORD", FILE_NAME_R00T({the filename})); 
end constraints; 

DATA_RECORDS_NAME: constant STRING := {the file_name}; 
subtype DATA_RECORD_INDEX_TYPE is INDEX_TYPE; 
type DATA_RECORD_TYPE is 
record 

{the data}; 

NEXT: DATA_RECORD_INDEX_TYPE; 
end record; 

package DATA_RECORD_IO is 

new CHAINED_IO(DATA_RECORD_TYPE, DATA_RECORD_INDEX_TYPE); 

DATA_RECORDS: DATA_REC0RD_I0.FILE_TYPE; 
end CHAIN_FILE_DEFINITION; 

with FUNCTIONS; 
use FUNCTIONS; 

cliche KEYED_FILE_DEFINITION is 
primary roles FILE_NAME; 
described roles FILE_NAME; 

comment “defines a keyed file named {the file_name} of records"; 
constraints 

RENAME("DATA_RECORD", FILE_NAME_ROOT({the filename})); 
end constraints; 

DATA_RECORDS_NAME: constant STRING := {the filename}; 
subtype DATA_RECORD_KEY_TYPE is STRING(1..{the key_length}); 
type DATA_RECORD_TYPE is 
record 

{the data}; 
end record; 

package DATA_REC0RD_I0 is 

new KEYED__I0(DATA_REC0RD_TYPE, DATA_RECORD_KEY_TYPE); 

DATA_RECORDS: DATA_REC0RD_I0.FILE_TYPE; 
end KEYED_FILE_DEFINITION; 
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The cliche filc_cnumeration is an enumerator which reads a file sequentially, enumerating the records in 
it. As discussed in Chapter 111 it has the same basic structure as any other enumerator. 

cliche FILE_ENUMERATION is 
primary roles FILE; 
described roles FILE; 

comment "enumerates the records in {the file}"; 
constraints 

RENAME("DATA_RECORD", SINGULAR_FORM({the file})); 

DEFAULT({the file.name}, CORRESPONDING_FILE_NAME({the file})); 
end constraints; 

FILE: {}; 

DATA_RECORD: {}; 
begin 

FILE := {the input file}; 

0PEN( FILE , IN_FILE, {the filename}); 

while not {END_0F_FILE, the empty_test}(FILE) loop 

{{READ, the element_accessor}, the step}(FILE, DATA_RECORD); 

{DATA_RECORD, the output data_record}; 
end loop; 

CLOSE(FILE); 
exception 

when DEVICE.ERROR | END_ERR0R | NAME_ERROR | STATUS_ERROR => 

CLOSE(FILE); PUT("Data Base Inconsistent"); 
when others => CLOSE(FILE); raise; 
end FILE_ENUMERATION; 

Idle cliche file_accumulation is an accumulator. It is very similar the the cliche file_cnumcration except 
that it essentially performs the inverse operation. It takes in a series of records and writes them sequentially 
into a file. 

with DIRECT_10; 

cliche FILE_ACCUMULATION is 
primary roles FILE; 
described roles FILE, DATA_REC0RD; 

comment "creates a file containing {the data_record}"; 
constraints 

RENAME("DATA_RECORD", SINGULAR_F0RM({the file})); 

DEFAULT({the filename}, CORRESPONDING_FILE_NAME({the file})); 
end constraints; 

FILE: {}; 

DATA_REC0RD: {}; 
begin 

FILE := {the file}; 

{OPEN, the zero}(FILE, 0UT_FILE, {the filename}); 
loop 

{WRITE, the accumulator}(FILE, {the data_record}); 
end loop; 

{FILE, the output resulting_fi1e}; 

CLOSE(FILE); 

exception 

when DEVICE_ERROR | END_ERR0R | NAME_ERROR | STATUS_ERROR => 

CLOSE(FILE); PUT("Data Base Inconsistent"); 
when others => CLOSE(FILE); raise; 
end FILE_ACCUMULATION; 
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The cliche chain_enumcration (which is discussed in detail in the beginning of Chapter 111) enumerates 
the records in a chain. An interesting aspect of the cliche is that it makes use of a number of constraints in 
order to fill in roles of the cliche based on the definitions for the files referenced. 

cliche CHAIN_ENUMERATION is 

primary roles MAIN_FILE, CHAIN_FILE, MAIN_FILE_KEY; 
described roles MAIN_FILE, CHAIN_FILE, MAIN_FILE_KEY; 
comment "enumerates the chain records in {the chain_file} starting 
from the header record indexed by {the main_fi1e_key}"; 
constraints 

RENAME(”MAIN_RECORD", SINGULAR_FORM({the main_fi1e})); 

RENAME("CHAIN_RECORD", SINGULAR_FORM({the chain_file})); 

DEFAULT({the main_fi1e_name}, 

CORRESPONDING_FILE_NAME({the main_fi1e})); 

DEFAULT({the chain_fi1e_name}, 

CORRESPONDING_FILE_NAME({the chain_file})); 

DEFAULT({the main_fi1e_chain_field}, 

CHAIN_FIELD({the main_file}, {the chain_file})); 

DEFAULT({the step}, CHAIN_FIELD({the chain_file}, {the chain_file})); 
end constraints; 

CHAIN_FILE: {}; 

CHAIN_RECORD: {}; 

CHAIN_RECORD_INDEX: {}; 

MAIN_FILE: {}; 

MAIN_RECORD: {}; 

procedure CLEAN_UP is 
begin 

CLOSE(CHAIN_FILE); CLOSE(MAIN_FILE); 
exception 

when STATUS_ERROR => return; 
end CLEAN_UP; 
begin 

CHAIN_FILE := {the chain_file}; 

MAIN_FILE := {the main_fi1e}; 

OPEN(CHAIN_FILE, IN_FILE, {the chain_fi1e_name}); 

0PEN(MAIN_FILE, IN_FILE, {the main_fi1e_name}); 

READ(MAIN_FILE, MAIN_RECORD, {the input main_fi1e_key}); 

CHAIN_RECORD_INDEX := MAIN_RECORD.{the main_file_chain_field}; 
while not {NULL_INDEX, the empty_test}(CHAIN_RECORD_INDEX) loop 

{READ, the element_accessor}(CHAIN_FILE, CHAIN_RECORD, CHAIN_RECORD_INDEX); 
{CHAIN_RECORD, the output chain_record}; 

CHAIN_RECORD_INDEX := CHAIN_RECORD.{the step}; 
end loop; 

CLEAN_UP; 
exception 

when DEVICE_ERROR | END_ERR0R | NAME_ERROR | STATUS_ERROR => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end CHAIN_ENUMERATION; 
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The cliche all_chains_cnumcr;uion is similar to the cliche chain_cnumcration except that it enumerates all 
of the records in a chain file. It contains a carefully crafted inner loop which creates a one dimensional scries 
of the chain records based on the inherently two dimensional structure of chains hanging off of main file 
records. 

with FUNCTIONS; 
use FUNCTIONS; 

cliche ALL_CHAINS_ENUMERATION is 

primary roles MAIN_FILE, CHAIN_FILE; 
described roles MAIN_FILE, CHAIN_FILE; 

comment "enumerates the header records in (the main_file} and 

enumerates the chain records in (the chain_file} starting 
from each header record"; 
constraints 

RENAME("MAIN_RECORD", SINGULAR_FORM({the main_file})); 

RENAME!"CHAIN_RECORD", SINGULAR_FORM((the chain_fi1e})); 

DEFAULT({the main_fi1e_name}, 

CORRESPONDING_FILE_NAME({the main_fi1e})); 

DEFAULT({the chain_fi1e_name}, 

CORRESPONDING_FILE_NAME((the chain_fi1e})); 

DEFAULT({the main_fi1e_chain_field}, 

CHAIN_FIELD({the main_file}, {the chain_fi1e})); 

DEFAULT({the chain_fi1e_chain_field}, 

CHAIN_FIELD({the chain_file}, {the chain_fi1e})); 
end constraints; 

CHAIN_FILE: {>; 

CHAIN_RECORD: {}; 

CHAIN_RECORD_INDEX: {}; 

MAIN_FILE: {}; 

MAIN_RECORD: {}; 

procedure CLEAN_UP is 
begin 

CLOSE(CHAIN_FILE); CLOSE(MAIN_FILE); 
exception 

when STATUS_ERROR => return; 
end CLEAN_UP; 
begin 

CHAIN_FILE := {the chain_fi1e>; 

MAIN_FILE := {the main_file}; 

OPEN(CHAIN_FILE, IN_FILE, {the chain_fi1e_name}); 

OPEN(MAIN_FILE, IN_FILE, {the main_fi1e_name}); 

CHAIN_RECORD_INDEX ;= NULL_INDEX; 
loop 

while NULL_INDEX(CHAIN_RECORD_INDEX) and not END_OF_FILE(MAIN_FILE) loop 
READ!MAIN_FILE, MAIN_RECORD); 

CHAIN_RECORD_INDEX := MAIN_RECORD.{the main_file_chain_field}; 
end loop; 

exit when NULL_INDEX(CIIAIN_RECORD_INDEX); 

READ!CHAIN_FILE, CHAIN_RECORD, CHAIN_RECORD_INDEX); 

{CHAIN_RECORD, the output chain_record}; 

CHAIN_RECORD_INDEX := CHAIN_RECORD.{the chain_file_chain_field}; 
end loop; 

CLEAN_UP; 

exception 

when DEVICE_ERROR | END_ERR0R | NAME_ERROR | STATUS_ERROR => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end ALL_.CHAINS_ENUMERATION; 
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As discussed at length in Chapter III, the cliche simple_rcport is very similar to the cliche simple-report. 

with CALENDAR. FUNCTIONS. TEXT..I0: 
use CALENDAR, FUNCTIONS, TEXT_I0; 
cliche SIMPLE_REPORT is 

primary roles ENUMERATOR, PRINT_ITEM, SUMMARY; 

described roles FILE_NAME, TITLE, ENUMERATOR, COLUMN_HEADINGS, 

PRINT_ITEM, SUMMARY; 

comment "prints a report of {the input structure of the enumerator}”; 
constraints 

DEFAULT({the file_name}, "report.txt"); 

DERIVED({the 1ine_limit>, 

66-SIZE_IN_LINES({the print_item}) 

-SIZE_IN_LINES({the summary})); 

DEFAULT({the print_item}, CORRESPONDING_PRINTING({the enumerator})); 
DEFAULT({the column_headings}, 

CORRESPONDING_HEADINGS({the print_item})); 
end constraints; 

use INT_IO; 

CURRENT_DATE: constant STRING := FORMAT_DATE(CLOCK); 

DATA: {}; 

REPORT: TEXT_IO.FILE_TYPE; 

TITLE: STRINGO. .{}); 
procedure CLEAN_UP is 
begin 

SET_OUTPUT(STANDARD_OUTPUT); 

CLOSE(REPORT); 
exception 

when STATUS_ERROR => return; 
end CLEAN_UP; 
begin 

CREArE(REPORT, OUT_FILE, {the file_name}); 

DATA := {the input structure of the enumerator}; 

SET_OUTPUT(REPORT); 

TITLE := {the title}; 

NEW_LIWE(4); SET_COL(20); PUT(CURRENT„DATE); NEW_LINE(2); 

SET_COL(13); PUT(TITLE); NEW_LINE{60); 

while not {the empty_test of the enumerator}(DATA) loop 

if LINE > {the 1ine_1imit} then 

NEW_PAGE; NEW_LINE; PUT("Page: "); PUT(INTEGER(PAGE-1), 3); 
SET_C0L(13); PUT(TITLE); 

SET_COL(61); PUT(CURRENT_DATE); NEW_LINE(2); 

{the column_headings}{{CURRENT_OUTPUT, modified}); 
end if; 

{the print_item}({CURRENT_OUTPUT, modified}, 

{the element_accessor of the enumerator}(DATA)); 

DATA := {the step of the enumerator}(DATA); 
end loop; 

{the summary}; 

CLEAN_UP; 

exception 

when DEVICE_ERROR | END_ERR0R | NAME_ERROR | STATUS_ERR0R => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end SIMPLE_REPORT; 
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The next two cliches (filc_sclcction and file_suinmarization) arc specialized cliches used during the 
construction of the program MODEL_DEFECTS_REPORT in Chapter 111. They arc discussed in detail in that 
chapter. 

with DIRECT_I0; 
cliche FILE.SELECTION is 

primary roles SOURCE_FILE; 

described roles SOURCE_FILE, SELECTION_TEST, RECORD_KEY_ACCESSOR; 
comment "creates a file containing selected record keys for 
{the source_fi1e}"; 
constraints 

RENAME("RECORD_KEY", REC0RD_KEY_R00T({the source_file})); 
end constraints; 

package SELECTION_IO is new DIRECT_IO(RECORD_KEY_TYPE); 
use SELECTI0N_I0; 

SELECTIONS: SELECTI0N_I0.FILE_TYPE; 

DATA: {}; 

DATUM: {}; 
begin 

DATA := {the source_fi1e}; 

CREATE(SELECTIONS, INOUT_FILE); 

while not {the empty_test of the enumerator}(DATA) loop 
DATUM := {the element_accessor of the enumerator}(DATA); 
if {the selection_test}(DATUM) then 

WRITE(SELECTIONS, {the record_key_accessor}(DATUM)); 
end if; 

DATA := {the step of the enumerator}(DATA); 
end loop; 

{SELECTIONS, the output selection_file}; 

CLOSE(SELECTIONS); 

exception 

when DEVICE_ERROR | END_fcRROR | NAME..ERROR | STATUS_ERROR => 

CLOSE(SELECTIONS); PUT("Data Base Inconsistent"); 
when others => CLOSE(SELECTIONS); raise; 
end FILE_SELECTION; 
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with DIRECT_IO; 
cliche FILE_SUMMARIZATION is 
primary roles SOURCE_FILE; 
described roles SOURCE_FILE; 

comment "creates a file summarizing the frequency of occurrence of 
the record keys stored in {the source file}"; 
constraints 

RENAME(”SOURCE_RECORD", SINGULAR_FORM({the source_fi1e})); 
RENAME("RECORD_KEY", REC0RD_KEY_R00T({the source_fi1e})); 

DEFAULT({the source_fi1e_name}, 

CORRESPONDING_FILE_NAME({the source_fi1e})); 
end constraints; 

type SUMMARY_TYPE is 
record 

COUNT: INTEGER; 

KEY: RECORD_KEY_TYPE; 
end record; 

package SUMMARY.IO is new DIRECT_IO(SUMMARY_TYPE); 
use SUMMARY_IO; 

SUMMARIES: SUMMARY_IO.FILE_TYPE; 

SOURCE_FILE: {}; 

function BUILD_SUMMARY(COUNT: INTEGER; KEY: RECORD_KEY_TYPE) 

return SUMMARY_TYPE is 

begin return SUMMARY_TYPE’(COUNT, KEY); end BUILD_SUMMARY; 
function SUMMARY_GREATER_THAN(X: SUMMARY_TYPE; Y: SUMMARY_TYPE) 

return BOOLEAN is 

begin return X.COUNT > Y.COUNT; end SUMMARY_GREATER_THAN; 
procedure SORT_SOURCE_RECORDS is 

new SORT_FILE(RECORD_KEY_TYPE, SOURCE_RECORO_IO.FILE_TYPE, 
SOURCE_RECORD_IO.POSITIVE_COUNT); 
procedure SORT_SUMMARIES is 

new SORT_FILE(SUMMARY_TYPE, SUMMARY_IO.FILE_TYPE, 

SUMMARY_IO.P0SITIVE_C0UNT, SUMMARY_GREATER_THAN); 
procedure SUMMARIZE_SOURCE_RECORDS is 

new SUMMARIZE_FILE(RECORD_KEY_TYPE. S0URCE_REC0RD_I0.FILE_TYPE, 

SUMMARY_TYPE, SUMMARY_IO.FILE_TYPE, BUILD_SUMMARY); 

procedure CLEAN_UP is 
begin 

CLOSE(SOURCE_FILE); CLOSE(SUMMARIES); 
exception 

when STATUS_ERROR => return; 
end CLEAN_UP; 

begin 

SOURCE_FILE := {the source_file}; 

OPEN(SOURCE_FILE, INOUT_FILE, {the source_fi1e_name}); 

CREATE(SUMMARIES, INOUT_FILE); 

SORT_SOURCE_RECORDS(SOURCE_FILE); 

SUMMARIZE_SOURCE_R£CORDS(SOURCE_FILE, SUMMARIES); 

SORT_SUMMARIES(SUMMARIES); 

{SUMMARIES, the output summaries}; 

CLEAN_UP; 
exception 

when DEVICE.ERROR | END_ERR0R | NAME_ERROR | STATUS_ERROR => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end FILE_SUMMARIZATION; 
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This appendix shows die supporting functions which arc required in order to make the example programs 
in the scenarios in Chapters 11 & 111 run. Particularly for Ada, understanding these functions is a prerequisite 
for gaining a complete understanding of the programs in the scenarios. 

Lisp Functions 

The Lisp programs in Chapter II arc built almost entirely out of standard Lisp Machine functions. Only 
two non-standard functions arc used. 

The function DISPLAY-REPORT reads in the file "report. txt" and prints it out on the screen. It is useful 
for debugging report programs. The only complicated thing about die program is that it abbreviates groups 
of consecutive blank lines. 

(DEFUN DISPLAY-REPORT () 

(WITH-OPEN-FILE (FILE "report.txt" ’:IN) 

(DO ((CHAR (TYI FILE NIL) (TYI FILE NIL)) 

(NEWLINES 1)) 

(NIL) 

(DO () ((NOT (EQ CHAR NEWLINE))) 

(INCF NEWLINES) 

(SETQ CHAR (TYI FILE NIL))) 

(COND ((= NEWLINES l) (TERPRI)) 

((= NEWLINES 2) (TERPRI) (TERPRI)) 

((> NEWLINES 2) 

(FORMAT T "~%<~D blank lines>~%" (1- NEWLINES)))) 

(SETQ NEWLINES 0) 

(IF (NULL CHAR) (RETURN)) 

(TYO CHAR))) 

(VALUES)) 

The function CHARPOS queries an output file in order to determine the line position where the next 
character will go. It can be looked at as merely an abbreviation for the standard Lisp Machine message 
shown. (The name of this function is carried over from MacLisp.) 

(DEFUN CHARPOS (STREAM) 

(SEND STREAM ':READ-CURS0RP0S CHARACTER)) 
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Ada Functions 

Several non-standard Ada functions and packages arc used in the scenario in Chapter 111. The procedure 
CREATE_TEST_RECORDS creates a set of test of records (shown in Figure 7) in the files DEFECTS, MODELS, 
REPAIRS, and UNITS. These records arc used to test the programs UNIT_REPAIR_REP0RT and 
M0DEL_DEFECTS_REP0RT in the scenario in Chapter Ill. 

with CALENDAR, MAINTENANCE_FILES, TEXT_I0; 
use CALENDAR, MAINTENANCE_FILES, TEXT_I0; 
procedure CREATE_TEST_RECORDS is 

use DEFECT_I0, M0DEL_I0, REPAIR_I0, UNIT_I0: 

procedure CLEAN_UP is 
begin 

CLOSE(DEFECTS); CLOSE(MODELS); CLOSE(REPAIRS); CLOSE(UNITS); 
exception 

when STATUS_ERROR => return; 
end CLEANJJP; 

begin 

CREATE(DEFECTS, OUT.FILE, DEFECTS_NAME); 

CREATE(MODELS, 0UT_FILE, MODELS_NAME); 

CREATE(REPAIRS, 0UT_FILE, REPAIRS_NAME); 

CREATE(UNITS , 0UT_FILE, UNITS_NAME); 

WRITE(MODELS, MODEL_TYPE'("Opal Sorter ", "Perth Mining "). "0S1"); 

WRITE(MODELS, MODEL_TYPE'("Gas Analyzer ”, "Benson Labs "), "GA2"); 

WRITE(DEFECTS, DEFECT_TYPE'("Power supply thermistor blown ", "0S1"), 

"OS-03"); 

WRITE(DEFECTS, DEFECT_TYPE'("Control board cold solder joint ", "GA2"), 
"GA-11"); 

WRITE(DEFECTS, DEFECT_TYPE'("Clogged gas injection port ", "GA2"), 

"GA-32"); 

WRITE(REPAIRS, 

REPAIR_TYPE'(TIME_0F(1983, 9, 14), "GA-32", 

"Probably caused by humidity. ", 0), 

1); 

WRITE(REPAIRS, 

REPAIR_TYPE'(TIME_0F(1985, 1, 23), "GA-11", 

"Took two days to find. ", l), 

2); 

WRITE(REPAIRS, 

REPAIR_TYPE'(TIME_0F(1985, 2, 25), "OS-03", 

"Sorter arm got stuck. ", 0), 

3) ; 

WRITE(REPAIRS, 

REPAIR_TYPE'(TIME_OF(1985, 3, 19), "GA-32", 

"Port Diameter seems below specs.", 2), 

4) ; 

WRITE(UNITS , UNIT_TYPE'("0S1", 3), "OS1-271"); 

WRITE(UNITS, UNIT_TYPE'("GA2", 4), "GA2-342"); 

CLEAN_UP; 

exception 

when DEVICE_ERR0R | END_ERR0R | NAME_ERR0R | STATUS_ERROR => 

CLEAN_UP; PUT("Data Base Inconsistent"); 
when others => CLEAN_UP; raise; 
end CREATE_TEST_RECORDS; 
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The procedure DISPLAY_REPORT is essentially identical to die function DISPLAY-REPORT except that it is 
rendered in Ada syntax. 

with TEXT_10; 

use TEXT_10; 

procedure DISPLAY_REPORT is 

package INT.IO is new INTEGER_IO(INTEGER); 
use INT_I0; 

CHAR: CHARACTER; 

LINE_TERMINATORS: COUNT; 

REPORT: TEXT_I0.FILE_TYPE; 
begin 

0PEN(REP0RT, IN_FILE, "report.txt"); 

LOOP 

LINE.TERMINATORS := 0; 

while not END_OF_FILE(REPORT) and then END_OF_LINE(REPORT) loop 
SKIP_LINE(REPORT); 

LINE_TERMINATORS := LINE_TERMINAT0RS+1; 
end loop; 

if LINE_TERMINATORS > 2 then 

NEW_LINE; PUT("<"); PUT(lNTEGER(LINE_TERMINATORS-l), 2); 

PUT(" blank lines>"); NEW_LINE; 
elsif LINE_TERMINATORS > 0 then 
NEW_LINE(LINE_TERMINATORS); 
end if; 

exit when END_OF_FILE(REPORT); 

GET(REPORT, CHAR); 

PUT(CHAR); 
end loop; 

CLOSE(REPORT); 
end DISPLAY_REPORT; 


The package FUNCTIONS is an integral part of die scenario in Chapter III. It defines a number of 
non-standard functions and packages which are used in die programs created. The package declaration for 
the package FUNCTIONS is shown on die next two pages. 

In order to support I/O for integers, die package FUNCTIONS creates a package INT_I0 which is an 
instantiation of the standard Ada package INTEGER_I0. The package FUNCTIONS then defines a type 
INDEX_TYPE which is used when instantiating chain files. (See the definition of the package 
MAIfJTENANCE_FILES ill Chapter III.) 

The function F0RMAT_DATE converts times into strings of the form "mm/dd/yyyy". The type 
DATE_STRING is used to declare variables containing strings of diis form. 
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I'hc function QUERY_USER_FOR_DATE prints out a prompt string and reads in a date. This operation is 
represented as a function instead of as a cliche for two reasons. First, in contrast to qucry_uscr_for_kcy, 
QUERY_USER_F0R_DATE docs not require any file I/O and therefore can be efficiently realized as a 
subroutine. Second, QUERY_USER_FOR_DATE is a very simple operation which is unlikely to be modified by a 
programmer. As a result, there is no advantage to having it expand in-line. 

The generic procedures S0RT_FILE and SUMMARIZE_FILE arc used by the cliche FILE_SUMMARIZATI0N. 
These operations arc represented as generic procedures rather than as cliches because the generic mechanism 
is fully adequate for representing them. 'I’hc use of cliches is reserved for situations where other Ada 
mechanisms arc not sufficient. 

The generic procedure S0RT_FILE sorts the records in a file. It takes a functional parameter (">") which 
specifics how to order the records. 'I'hc generic procedure SUMMAR.IZE_FILE creates a summary file. (The 
operation of summarization is discussed in Chapter III.) 

I’hc generic packages CHAINED_I0 and KEYED_I0 define the operations which are required to operate on 
chain file and keyed files respectively. These packages arc instantiated when defining the files in the package 
MAINTENANCE_FILES. 

with CALENDAR, I0_EXCEPTI0NS, TEXT_I0; 
use CALENDAR, TEXT_I0; 
package FUNCTIONS is 

package INT_I0 is new INTEGER_IO(INTEGER); 

subtype INDEX_TYPE is INTEGER range 1..INTEGER’LAST; 

subtype DATE_STRING_TYPE is STRING(1. . 10); 

function FORMAT_DATE(DATE: TIME) return DATE_STRING_TYPE; 

function QUERY_USER_FOR_DATE(PROMPT: STRING) return TIME; 

generic 

type ITEM_TYPE is private; 

type FILE_TYPE is limited private: 

type INDEX_TYPE is range <>; 

with function ">"(X: ITEM_TYPE; Y: ITEM_TYPE) return BOOLEAN is <>; 
with procedure READ(FILE: FILE.TYPE; ITEM: out ITEM.TYPE) is <>; 
with procedure WRITE(FILE: FILE_TYPE; ITEM: ITEM.TYPE; 

TO: INDEX_TYPE) is <>; 

with procedure SET_INDEX(FILE: FILE_TYPE; TO: INDEX_TYPE) is <>; 
with function INDEX(FILE: FILE_TYPE) RETURN INDEX_TYPE is <>; 
with function END_OF_FILF.(FILE: FILE_TYPE) return BOOLEAN is <>; 
procedure SORT_FILE(FILE: FILE_TYPE); 

generic 

type FROM_ITEM_TYPE is private; 
type FROM_FILE_TYPE is limited private; 
type TO_ITEM_TYPE is limited private; 
type TO_FILE_TYPE is limited private; 

with function BUILD(COUNT: INTEGER; ITEM: FROM_ITEM_TYPE) 

return TO_ITEM_TYPE; 

with procedure READ(FILE: FROM_FILE_TYPE; ITEM: out FROM_ITEM_TYPE) is <>; 
with procedure WRITE(FILE: TO_FILE_TYPE; ITEM: TO_ITEM_TYPE) is <>; 
with function END_OF_FILE(FILE: FROM_FILE_TYPE) return BOOLEAN is <>; 
with procedure RESET(FILE: TO_FILE_TYPE) is <>; 
procedure SUMMARIZE_FILE(FR0M_FILE: FROM_FILE_TYPE; T0_FILE: TO_FILE_TYPE); 
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generic 

type ELEMENT_TYPE is private; 
type INDEX_TYPE is range <>; 
package CHAINED_IO is 

package UNDERLYING_IO is new DIRECT_IO(ELEMENT_TYPE); 
type FILE_TYPE is new UNDERLYING_IO.FILE_TYPE; 
type FILE_M0DE is new UNDERLYING_IO.FILE_MODE; 

procedure CREATE(FILE: in out FILE_TYPE; MODE: FILE_M0DE; NAME: STRING); 
procedure 0PEN(FILE: in out FILE.TYPE; MODE: FILE_M0DE; NAME: STRING); 
procedure CLOSE(FILE: in out FILE_TYPE); 

procedure READ(FILE: FILE_TYPE; ITEM: out ELEMENT_TYPE; FROM: INDEX_TYPE); 
procedure WRITE(FILE : FILE_TYPE; ITEM: ELEMENT_TYPE; TO: INDEX_TYPE); 
function END_OF_FILE(FILE: FILE_TYPE) return BOOLEAN; 

function FREE_INDEX(FILE: FILE_TYPE) return INDEX_TYPE; 

function NULL_INDEX(INDEX: INDEX_TYPE) return BOOLEAN; 
function NULL_INDEX return INDEX_TYPE; 

STATUS_ERROR: exception renames IO_EXCEPTIONS.STATUS_ERROR; 

MODE_ERROR: exception renames IO_EXCEPTIONS.MODE_ERROR; 

NAME_ERROR: exception renames IO_EXCEPTIONS.NAME_ERROR; 

USE_ERR0R: exception renames IO_EXCEPTIONS.USE_ERROR; 

DEVICE_ERROR: exception renames IO_EXCEPTIONS.DEVICE_ERROR; 

END_ERROR: exception renames IO_EXCEPTIONS.END_ERROR; 

DATA_ERROR: exception renames IO_EXCEPTIONS.DATA_ERROR; 
end CHAINED_IO; 

generic 

type ELEMENT_TYPE is private; 
type KEY_TYPE is private; 
package KEYED_IO is 

type COMBINED_TYPE is 
record 

KEY: KEY_TYPE; 

ELEMENT: ELEMENT_TYPE; 
end record; 

package UNDERLYING_IO is new DIRECT_IO(COMBINED_TYPE); 
type FILE_TYPE is new UNDERLYING_IO.FILE_TYPE; 
type FILE_MODE is new UNDERLYING_IO.FILE_M0DE; 

procedure CREATE(FILE: in out FILE_TYPE; MODE: FILE_M0DE; NAME: STRING); 
procedure 0PEN(FILE: in out FILE_TYPE; MODE: FILE_MODE; NAME: STRING); 
procedure CLOSE(FILE: in out FILE_TYPE); 

procedure READ(FILE: FILE_TYPE; ITEM: out ELEMENT_TYPE; FROM: KEY_TYPE); 
procedure READ(FILE : FILE_TYPE; ITEM: out ELEMENT_TYPE); 
procedure WRITE(FILE: FILE_TYPE; ITEM: ELEMENT_TYPE; TO: KEY.TYPE); 
procedure SET_KEY(FILE: FILE_TYPE; KEY: KEY_TYPE); 
function END_OF_FILE(FILE: FILE_TYPE) return BOOLEAN; 

STATUS_ERROR: exception renames I0_EXCEPTI0NS.STATUS_ERROR; 

MODE_ERROR: exception renames IO_EXCEPTIONS.MODE_ERROR; 

NAME_ERROR: exception renames IO_EXCEPTIONS.NAME_ERROR; 

USE_ERROR: exception renames IO_EXCEPTIONS.USE_ERROR; 

DEVICE_ERROR: exception renames IO_EXCEPTIONS.DEVICE_ERROR; 

END_ERR0R: exception renames IO_EXCEPTIONS.END_ERROR; 

DATA_ERROR: exception renames I0_EXCEPTI0NS.DATA_ERROR; 
end KEYED_I0; 
end FUNCTIONS; 
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The next four pages show the body of the package FUNCTIONS. The functions FORMAT_DATE and 
QUERY_USER_FOR_DATE arc straightforward. The generic function S0RT_FILE uses an extremely simple but 
inefficient selection sort. The generic function summari/.c_filc is based on a modified form of the cliche 
group detector. It counts up the number of elements in each group. The generic packages CHAINED_IO and 
KEYED_I0 arc large because they have to define all of the I/O functions to be used on these types of files. 
However, each of the I/O functions is by itself trivial. All of the functions in the package FUNCTIONS are 
intended merely to be minimal support functions, and not examples of good style. 

package body FUNCTIONS is 

function FORMAT_DATE(DATE: TIME) return DATE_STRING_TYPE is 
use INT_I0; 

MONTH_STRING: STRING(1. . 2); 

DAY_STRING: STRING(1. .2); 

YEAR_STRING: STRING(1. .4); 
begin 

PUT(MONTH_STRING, MONTH(DATE)); PUT(DAY_STRING, DAY(DATE)); 

PUT(YEAR_STRING, YEAR(DATE)); 

return MONTH_STRING & "/" & DAY_STRING & "/” & YEAR_STRING; 
end FORMAT_DATE; 

function QUERY_USER_FOR_DATE(PROMPT: STRING) return TIME is 
use INT_I0; 

MONTH: MONTH_NUMBER; 

DAY: DAY_NUMBER; 

YEAR: YEAR.NUMBER; 

DATE: TIME; 
begin 
loop 
begin 

NEW_LINE; 

PUT("Enter Date of " & PROMPT); NEW_LINE; 

PUT("Month: ”); GET(MONTH); 

PUT("Day: "); GET(DAY); 

PUT("Year: "); GET(YEAR); 

DATE := TIME_0F(YEAR, MONTH, DAY); 
exit; 
exception 

when DATA_ERROR | CONSTRAINT_ERROR | TIME_ERROR => 

PUT("Invalid DATE"); NEW_LINE; 

end; 

end loop; 
return DATE; 

end QUERY_USER_FOR_DATE; 
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procedure S0RT_FILE(FILE: FILE_TYPE) is 
EDGE: INDEX_TYPE := 1; 

MAX:. INDEX_TYPE: 

EDGE_ITEM: ITEM_TYPE; 

MAX_ITEM: ITEM_TYPE; 

CURRENT.ITEM: ITEM_TYPE; 
begin 
loop 

SET_INDEX(FILE, EDGE); 
exit when END_OF_FILE(FILE); 

READ(FILE, EDGE_ITEM); 

MAX := EDGE; 

MAX_ITEM := EDGE_ITEM; 

while not END_0F_FILE(FILE) loop 

READ(FILE, CURRENT_ITEM); 
if CURRF.NT_ITEM > MAX_ITEM then 
MAX := INDEX(FILE)-1; 

MAX_ITEM := CURRENT_ITEM; 
end if; 
end loop; 

if MAX /= EDGE then 

WRITE(FILE . MAX_ITEM, EDGE); 

WRITE(FILE, EDGE_ITEM, MAX); 
end if; 

EDGE := EDGE+1; 
end loop; 

SET_INDEX(FILE, l); 
end SORT_FILE; 

procedure SUMMARIZE_FILE(FR0M_FILE: FROM_FILE_TYPE; TO.FILE: TO_FILE_TYPE) is 
COUNT: INTEGER : = 1; 

CURRENT: FROM_ITEM_TYPE: 

PRIOR: FROM_ITEM_TYPE; 
begin 

if not END_OF_FILE(FROM_FILE) then 
READ(FROM_FILE, PRIOR); 
while not END_OF_FILE(FROM_FILE) loop 
READ(FROM_FILE, CURRENT); 
if CURRENT /= PRIOR then 

WRITE(TO_FILE, BUILD(COUNT, PRIOR)); 

COUNT := 1; 

PRIOR := CURRENT; 
else 

COUNT := COUNT+1; 
end if; 
end loop; 

WRITE(T0_FILE, BUILD(COUNT, CURRENT)); 

RESET(TO_FILE); 
end if; 

end SUMMARI7.E_FILE; 
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package body CHAINED_IO is 

procedure CREATE(FILE: in out FILE_TYPE; MODE: FILE_M0DE; NAME: STRING) is 
begin 

UNDERLYING_IO.CREATE(FILE, MODE, NAME); 
end CREATE; 

procedure OPE N(FILE: in out FILE_TYPE; MODE: FILE_MODE; NAME: STRING) is 
begin UNDERLYING_IO.OPEN(FILE, MODE, NAME); end OPEN; 
procedure CLOSE(FILE: in out FILE_TYPE) is 
begin UNDERLYING_IO.CLOSE(FILE); end CLOSE; 
procedure READ{FILE: FILE_TYPE; ITEM: out ELEMENT_TYPE; 

FROM: INDEX_TYPE) is 

begin 

UNDERLYING_IO.READ(FILE, ITEM, UNDERLYING_I0.POSITIVE_COUNT(FROM)); 
end READ; 

procedure WRITE(FILE: FILE_TYPE; ITEM: ELEMENT_TYPE; TO: INDEX_TYPE) is 
begin 

UNDERLYING_IO.WRITE(FILE, ITEM, UNDERLYING_IO.POSITIVE_COUNT(TO)); 
end WRITE; 

function END_OF_FILE(FILE: FILE_TYPE) return BOOLEAN is 

begin return UNDERLYING_IO.END_OF_FILE(FILE); end END_OF_FILE; 
function FREE_INDEX(FILE: FILE_TYPE) return INDEX.TYPE is 
begin return 1 + UNDERLYING_IO.SIZE(FILE); end FREE_INDEX; 
function NULL_INDEX(INDEX: INDEX_TYPE) return BOOLEAN is 
begin return INDEX = 0; end NULL_INDEX; 
function NULL.INDEX return INDEX_TYPE is 
begin return 0; end NULL_INDEX; 
end CHAINED_IO; 
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package body KEYED_I0 is 

procedure CREATE(FILE: in out FILE_TYPE; MODE: FILE_M0DE; NAME: STRING) is 
begin 

UNDERLYING_IO.CREATE(FILE, MODE, NAME); 
end CREATE: 

procedure OPEN(FILE: in out FILE.TYPE; MODE: FILE_MODE; NAME: STRING) is 
begin UNDERLYING_IO.OPEN(FILE, MODE, NAME); end OPEN; 

procedure CLOSE(FILE: in out FILE_TYPE) is 
begin UNDERLYING_IO.CL0SE(FILE); end CLOSE; 

procedure SET_KEY(FILE: FILE_TYPE; KEY: KEY.TYPE) is 

COMBINED: COMBINED_TYPE; 

I: UNDERLYING_10.POSITIVE_COUNT; 

begin 

UNDERLYING_IO.RESET(FILE); 

while not UNDERLYING_IO.END_0F_FILE(FILE) loop 

UNDERLYING_IO.READ(FILE, COMBINED); 
if COMBINED.KEY = KEY then 

I := UNDERLYING_IO.INDEX(FILE)-1; 

UNDERLYING_IO.SET_INDEX(FILE, I); 
exit; 
end if; 

end loop; 
end SET_KEY; 

procedure READ(FILE: FILE_TYPE; ITEM: out ELEMENT_TYPE; FROM: KEY_TYPE) is 

COMBINED: COMBINED_TYPE; 
begin 

SET_KEY(FILE, FROM); 

UNDERLYING_IO.READ(FILE, COMBINED); 

ITEM := COMBINED.ELEMENT; 
end READ; 

procedure READ(FILE: FILE_TYPE; ITEM: out ELEMENT_TYPE) is 

COMBINED: COMBINED_TYPE; 
begin 

UNDERLYING_IO.READ(FILE, COMBINED); 

ITEM := COMBINED.DATA; 
end READ; 

procedure WRITE(FILE: FILE_TYPE; ITEM: ELEMENT_TYPE; TO: KEY_TYPE) is 
begin 

SET_KEY(FILE, TO); 

UNDERLYING_IO.WRITE(FILE, COMBINED_TYPE'(TO, ITEM)); 
end WRITE; 

function END_OF_FILE(FILE: FILE_TYPE) return BOOLEAN is 

begin return UNDERLYING_IO.END_OF_FILE(FILE); end END_OF_FILE; 

end KEYED_IO; 
end FUNCTIONS; 
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